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TEXT EDITING SYSTEM 


INTRODUCTION 

Contained In the following pages is a complete description and source 
listing of the TSC Text Editing System: This system is a content oriented 
text editor which is powerful, simple to use, and easy to learn. Particu¬ 
lar attention should be paid to the section titled "Adapting to Your System". 

As In all TSC software, a great effort has been put forth in testing 
to eliminate "bugs" in the code. This however is no guarantee of perfect 
code. If a suspected bug is spotted, please jot down the circumstances 
involved and send it to TSC. Errata sheets with ail patches will be sent 
to owners if necessary. 

GETTING THE SYSTEM STARTED 

After ail of the code has been entered, and all of the adaptations to 
your system have been made, start executing the program at location 200 hex. 
The system should respond with: 

new file: 

1.00 = 

The system is now ready to accept the text file input from the keyboard. 

If the editor is left and later it is desirable to reenter the editor to 
work on the previous text file, it is necessary to enter at location 203 
hex, otherwise all workspace will be cleared. If a system containing 
MIKBUG® is used this "restart" address will automatically be used on a "G" 
command. 
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MINI-TUTORIAL 

The purpose of this section is to briefly introduce the reader to the 
use of the TSC Text Editing System. We will, therefore, illustrate its 
use with a number of examples. In order to make It more obvious what 
things are typed by the user and what things are displayed by the editor, 
we will subscribe to the convention that things underlined are user-typed 
and things not underlined are displayed by the editor. 

When the editor is initially entered, the response is as shown above. 
At this time we will create our file by simply typing all lines until 
finished, terminating each line with a "carriage return". 


NEW file: 
1.00 
2.00 
3.00 
4.00 
5.00 = 


A. 00 
7.00 
8.00 
9.00 
10.00 
11.00 
12.00 
13.00 
14.00 
13.00 


TUTS 18 AN EXAMPLE Q F THE FANTASTICftt-EY USEFUL 

TRR TEXT FFiITING SYSTEM. A NUMBER OF 

FXAMF'I FS WILL BE SHOWN T O ALLOW EASY ftti l! 

QUICK LEARNING OF ITS FEATURES^ 

FOLLOWING ARE SOME NONSENSE LINES. 

= ARCDEFGHIJKL 

= AAAAAAAA 
= TFSTING 1234 

= THIS EDlfOPTIS FUN TO USE! 

g RBBBBBBB 

is THIS IS THE END OF THIS FILE.? 

= AT LEAST FOR NQW_. 

=± 

=AT LEAST FOR NOW. 


Notice It was necessary to type a pound sign (#) In column one to leave 
the buffered Input mode. At this time, the system printed the last line 
and returned with the system prompt (a pound sign). The editor Is now 
ready to accept commands. 

Any time characters are being typed into the editor the following two 
characters have special meaning: 

1. "control" H - Deletes the last character typed (backspace). 




2. "control" X - Deletes entire current line being typed. 

These are useful, when detected typing errors occur, for immediate correction. 

Each line of text In the edit file is given or has a line number which 
is used by the editor to uniquely identify the line. Each line number is 



( 
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of the form "m.nn" where "m" is an integer and "n" represents any of the 
digits 0 through 9. To specify a line number, one has to specify only that 
portion of the line number to identify it uniquely. For example, 73, 73*, 
73*0, and 73.00 may be used to refer to line 73.00; 259.6 refers to line 
259.60. The largest line number used with the editor is 9999.99. Let's 
denote a specification of a line of text by the symbol "<llne>". We will 
be using this symbol throughout this document. 

An editor command tells the editor what action is to be performed and 
usually what line or block of lines are to be affected (if any). For each 
editing facility supported by the editor, there is a directive which is 
used In commands to indicate the desired action. For example, the editor 
can delete lines of text from a file, insert lines of text Into the file, 
print lines contained in the file, and so on. Corresponding to each 
capability there is a directive; hence, there is a Delete directive, an 
Insert directive, a Print directive, and so on. if we define the symbol 
<directive> to mean any editor directive, the basic from of an edit command 
is 

<1ine><directive> 

For example, the command to display (Print) line 12.00 is 

* 12 _£ 

12.00 =THIS IS THE END OF THIS FILEf 

* 

where "12" is the <line> specification and "P" is the <dlrectlve> In this 
command. As can be seen In the example, this causes line number 12 to 
be printed on the terminal. 

Nov* let's learn how to use the Insert directive. In normal usage of 
the word "insert" we say something like, " Insert this card after this other 
card." To use the Insert directive, we specify the line after which we 
want to insert new lines followed by an I: 

<1ine>l 

After typing the directive followed by a carriage return, the editor will 
select an appropriate line number and prompt for input by displaying the 
line number followed by an equal sign. After each line of text is entered 









4 


and the carriage return Is typed, the editor will prompt for the next line. 

To exit from the "Insert mode" one simply types a pound sign followed by 
an edit directive In response to a new line prompt. 

Some examples of the use of Insert are 

*81 

8.10 = THIS IS AN INSERTED LINE. 

8.20 = S0 IS THIS. 

8.30 = *11 I 

11.10 ^ ANOTHER INSERTED LINE. 

11.20 =*6_P 

6.00 =ABCDEFGHI JKl. 

It should be noted that the editor may renumber some lines following 
the Inserted text. This occurs when enough lines are inserted such that 
the Inserted line numbers overlap line numbers in the original text. 

Next, let's learn how to use the Delete directive. With this directive 
we can delete one line or a block of lines with one directive. To delete 
only one line, we specify the <line> to be deleted followed by a D: 

<1ine>D 

When the carriage return Is typed, the line disappears. 

To delete more than one line we need to indicate not only the first 
line to delete but also the last line to be deleted. Let's call the last 
line the "target" line and denote Its specification as "<target>". Although 
the editor supports fancier ways to specify the <target>, we'll Just con¬ 
sider the two simplest: (1) <target> may be the number of lines to be 
deleted (counting both the first and last line of the block), or (2) <target> 
may be a pound sign followed Immediately by the line number of the last 
line of the block to be deleted. Some example <target>s are: 3 (delete 
three lines), 26 (delete 26 lines), and #26 (delete lines through line 
26 . 00 ). 

The syntax to Delete a block of lines Is 

<line>D <target> 

where <llne> Indicates the first line to delete and <target> Indicates the 
scope of the delete. 

To Illustrate the use of the Delete directive, let's assume we have a 
file containing 53 lines with integer line numbers (I.e., 1, 2, 3» 53). 
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With the directives 

5D 

#24D #31 

#52D 2 

BOTTOM OF FILE REACHED 

if 

we now have a file with lines 1 through 14, 16 through 23, and 32 through 
51. The first directive deleted line 15. The second directive deleted 
lines 24 through 31. The third directive deleted two lines starting with 
line 52. Since it deleted the last line of the file, the editor dis¬ 
played the message "BOTTOM OF FILE REACHED." 

Before we discuss any more directives, we need to expand the definitions 
of <1 ine> and <target>. 

As editing operations are performed, the editor keeps track of the 
"current line" which usually is the line most recently affected by a 
successful edit directive. Upon entering the editor, the "current line" 
is the first line of the file. If, for example, we have just inserted 
three lines between lines 12.00 and 13.00, the current line will be 12.30. 

One should note that after a line or a block of lines have been Deleted, 
the line immediately following the last one deleted is made the current 
line (if the last line of the file was deleted, the new last line of the 
file will be the current line). 

In our discussions above, we have implied that one has to explicitly 
indicate a <line> for each directive by specifying the line number of the 
line of Interest. However, if <1ine> is not specified in a directive, the 
"current line" is used. For example, if one enters the directive 

♦ D 2 

* 

the editor will delete two lines starting with the current line. In our 
example, since we were at line 6.00, the "D2" operation deleted lines 6.00 
and 7*00. As you will learn to appreciate, the "current line" default for 
line is extremely handy. 
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After performing all of the above operations, our file now looks like 


this: 


1.00 
2.00 
3.00 
4.00 
5.00 = 
8.00 
8.10 
8.20 
9.00 
10.00 
11.00 
11.10 
12.00 
13.00 


AND 


THIS IS AN EXAMPLE 0E THE FANTASTICALLY USEFUL 
TSC TEXT EDITING SYSTEM. A NUMBER OF 
EXAMPLES WILL BE SHOWN TO ALLOW EASY 
‘QUICK LEARNING OF ITS FEATURES. 

FOLLOWING ARE SOME NONSENSE LINES. 

‘TESTING 1234 

=THIS IS AN INSERTED LINE. 

=S0 IS THIS. 

=THIS EDITOR IS FUN TO USE! 

‘BBBBBBBB 

“ANOTHER INSERTED LINE. 

“THIS IS THE END OF THIS FILE* 

=AT LEAST FOR NOW. 


We have seen that <line> may be specified by a line number or by 
default to the current line. There are also several other ways to specify 
<line>, or in other words, to move the pointer to a desired line prior 
to the execution of an edit directive. One may also specify <line> with a 
"+n" or "-n" (where n^ is an integer) meaning the next nth line In the file 
or the nth previous line In the file, respectively. Two other useful 
<llne> designators are ("*" on some terminals) and 0 on some 
terminals). The up arror is used to designate the top or first line 
in the file. The down arrow "F" Is used to move to the last line or bottom 
of file. These various <1ine> specifiers are shown In the example below 
with the PRINT directive. 

1.00 =THIS IS AN EXAMPLE OF THE FANTASTICALLY USEFUL 

#±3P 

4.00 =QUICK LEARNING OF ITS FEATURES. 

♦ ! P 

13.00 =AT LEAST FOR NOW. 

*-2P 

Tl.io ““ANOTHER INSERTED LINE. 

* 

There may be times while editing a file when we know part of the con¬ 
tents of a line of interest but don't know its line number nor Its dis¬ 
placement from the current line. In such a case we can use the "content- 
oriented" feature of the editor to find it. The syntax to specify <Hne> 


C 


Ik 

'J 

'1 


C 
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in this way is 

/<strlng>/ 

where "/" is a character to delimit (enclose) the <string> which is a 
sequence of characters known to be in the line. When <1lne> is specified 
as "/<string>/", the editor will search for the current line through the 
file to find the next line containing the specified <string>. Some examples 
will help to clarify this: (1) /PRINT/ denotes the next line containing 
the character string "PRINT", and (2) /GO TO 35/ refers to the next line 
containing "GO TO 35". If the <string> is found In any subsequent line of 
the file, that line will be made the current line and the requested edit 
operation will be performed on it. If the <string> does not occur anywhere 
subsequent in the file, the editor will issue the message "NO SUCH LINE" 
and will not change the current line pointer. Note that the delimiter does 
not need to be a slash; it may be some other character such as a quote (') 
or a comma. For example, 'A/B' refers to the next line containing "A/B". 

It is also possible to prefix the string designator with "-" (minus 
sign) to indicate a previous line containing that string. A few examples 
with our TEST FILE will show the use of "/<string>/" as a <line> designator. 

♦ -/QUICK/P 

4.00 =QUICK LEARNING OF ITS FEATURES. 

* >123? P 

8.00 =TESTING 1234 

♦ + / END / P 

12.00 =THIS IS THE END OF THIS FILE» 

* 

To summarize, we have seen that <1ine> may be specified a number of 
ways, namely: (1) by default to the current line, (2) by typing a line 
number, (3) by "+n" denoting the nth subsequent line, (4) by "-n" referring 
to the nth previous line, (5) by /<string>/ denoting the next line In the 
file containing the indicated string of characters, (6) " - /<strlng>/" 
to denote the nearest previous line containing the specified character 
string, (7) "+" ("*" on some terminals) to denote the first line of the 
file, and (8) "+" ("I" on some terminals) to denote the last line of the 
file. 

Now lets turn our attention to expanding the definition of <target>. 

As you may recall, a <target> is used in some directives to indicate the 
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number of lines to be affected by the edit operation. We have already seen 
that a <target> may be specified by (l) an Integer "n" Indicating the 
number of lines to be affected, as P3, meaning print 3. lines, and (2) a 
line number preceded by a pound sign (#) indicating the line number of the 
last line to be affected, as P #6, meaning print all lines to and includ¬ 
ing line #6. The <target> is simply a designator telling how many lines 
the edit directive should operate on. In addition to the two mentioned 
forms of <target>, we also have, (3) If no <target> Is specif led In a command 
whose syntax includes one, a <target> of 1 is assumed, thereby affecting 
only one line. As with <line>, one may specify <target> by (**) "/<string>/" 
which indicates the next line in the file containing the specified character 
string, (5) to denote the top line In the file, and (6) to denote 
the bottom line in the file. A minus sign may be used to indicate that 
processing Is to proceed backward through the file in the following two 

cases: (7) "-n" and (8) "-/<string>/". 

With an understanding of <line> and <target> we can now discuss some 
more directives. The Print directive is used to display a line or a 
group of lines. Its syntax is 

<1!ne>P <target> 

where "<line>" and "<target>" may be specified in any of the ways discussed 
above. To print just one line one needs to specify only <line> followed 
by a carriage return; therefore, the following two directives perform 
the same thing: 

<1ine>P 

and 


<1ine> 




( 



Going back to our test file, we can illustrate the various forms of 
<target> as used with the Print directive. 


*2E 

2,00 =TSC TEXT EDITING SYSTEM. A NUMBER OF 

*zl 

1.00 =THIS IS AN EXAMPLE OF THE FANTASTICALLY USEFUL 
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* P /EASY/ 

1.00 =7HIS IS AN EXAMPLE OP THE FANTASTICALLY USEFUL 
2.00 =TSC TEXT EDITING SYSTEM. A NUMBER OF 
3.00 -EXAMPLES WILL BE SHOWN TO ALLOW EASY AND 
♦ ! P -3 

13.00 =AT LEAST FOR NOW. 

12.00 =THIS IS THE END OF THIS FILEr 
11.10 ^ANOTHER INSERTED LINE. 

* ~/BBB/ P -/123/ 

10.00 =BBBBBBBB 

9.00 =THIS EDITOR IS FUN TO USE! 

8.20 =S0 IS THIS. 

8.10 =THIS IS AN INSERTED LINE. 

8.00 =TESTING 1234 
♦ 12P! 

12.00 =THIS IS THE END OF THIS FILE, 

13.00 =AT LEAST FOR NOW. 


The first directive displayed line 2.00 and made that line the 
current line. The second directive requested that the line immediately 
preceding the current line be displayed. The third directive displayed 
the block of lines from the current line down through the line containing 
the character string "EASY". The fourth directive printed 3 lines start¬ 
ing at the bottom of the file and ending at line 11.10, which became the 
current line. The fifth directive requested the previous line containing 
the character string "BBB" be found, and then starting with that line, 
display all lines going backwards through the file until a line containing 
the character string "123" has been displayed. This shows the extreme 
usefulness and power of the content-oriented characteristic of the editor. 
The last directive requested that all lines from line 12.00 to the end or 
bottom of file be displayed. 

The next directive to discuss is Next which is used primarily to move 
the current line pointer. Although it may be used otherwise, usually It Is 
used only with the default <line>. Its syntax is 

N <target> 

This directive finds the line indicated by target , displays it, and makes 
it the current line. A few examples will illustrate its use. 
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1,00 =THIS IS AN EXAMPLE OF THE FANTASTICALLY USEFUL 
2.00 =TSC TEXT EDITING SYSTEM. A NUMBER OF 

♦ N 6 

8.20 =S0 IS THIS. 

* N -2 

8.00 =TESTING 1234 

* 

The following directive performs single-line replacements or Inserts. 
Its syntax is 



<1 i ne> BS <text> 


where "<line>" specifies the number of the line to be replaced or Inserted 
and may, of course, default to the current line. "<text>" Is the text to 
comprise the line. To illustrate this directive, let's continue our 
example series. 


♦ ^REPLACE CURRENT LINE HERE 
« 5.25=THIS LINE CREATED UITH ■EQUALS'. 

* 


The first directive changed the contents of line 8.00, the current line. 
The second example Inserted a line with the line number 5.25* 

The next directive to be discussed Is the Change directive. It is 
used to change occurrences of one character string Into another. Its 
syntax Is 

<l!ne>C /<strlng>i/<strlng> 2 / <target> <occurrence> 



where "/" is a delimiter character to separate the two character strings; 
"<string>i" Is the character string to be replaced; "<strlng> 2 n Is the 
string of characters to replace them; "<target>" specifies the range of the 
changes; and "<occurrence>" specifies which occurrence(s) of <string>* 
should be replaced In the line(s). If <occurrence> Is 1 or Is not specified, 
then only the first occurrence of <string>i in any line of the block will 
be changed—the second or subsequent occurrence of the string In such a 
line will not be affected. If 2 is specified for <occurrence>, then only 
the second occurrence of <string>i In any line of the block will be changed. 
To change all occurrences of the indicated string in the block, use an 



( 








asterisk (*) for <occurrence>. Let's illustrate the Change directive by 
continuing our example. 


* 4C /QUICK/FAST/ 

4.00 =FAST LEARNING OF ITS FEATURES. 

* 8.1 C /THIS IS // 

8. 10=AN INSERTED LINE. 

♦ -5C ;a?»; f some» * 

3.00 =EX$MRL..ES WILL BE SHOWN TO $LL0W E*SY *ND 
4.00 =F$ST LEARNING OF ITS FEATURES. 

5.00 =FOL.LOWING $RE SOME NONSENSE LINES} 

* 12 C /E/?/ -2 3 

12.00 =THIS IS THE END OF THIS FIL ?? 

11.10 =ANOTHER INSERTTD LINE. 


The first example replaced the string "QUICK" with the string "FAST" 
in line 4.00. The second example deleted the string "THIS IS" and a 
blank from line 8.10. The third example starts at the fifth previous 
1 ine (1ine 3-00) and changes every occurrence of "A" to "$" down through 
all lines until the line containing the character string "SOME" (line 5*00) 
is reached. The last example changes the third occurrence of "E" to "?" 
in line 12.00 and then in line 11.10. 

The last directive to be discussed is used to exit from the editor. 

This can be done several different ways: STOP, S, or LOG. This will return 
you to your system monitor. 

Now lets go back to our test file and illustrate some of the features 
and directives we have discussed. 


1.00 =THIS IS AN EXAMPLE OF THE FANTASTICALLY USEFUL 
2.00 =TSC TEXT EDITING SYSTEM. A NUMBER OF 
3.00 =EX*MPL.ES WILL BE SHOWN TO $LL0W E*SY *NB 
4.00 =F*ST LEARNING OF ITS FEATURES. 

5.00 =F0l.L0WING *RE SOME NONSENSE LINES} 

5.25 =THIS LINE CREATED WITH ‘EQUALS'. 

8.00 ^REPLACE CURRENT LINE HERE 
8.10 =AN INSERTED LINE. 

8.20 =S0 IS THIS. 
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9.00 “THIS EDITOR IS FUN TO USE! 

10,00 “BBBBBBBB 
11.00 = 

11.10 -ANOTHER INSERTTD LINE. 

12.00 =THIS IS THE END OF THIS FIL?> 

13.00 =AT LEAST FOR NOW. 

♦ 2C/C /C 6800 / 

2.00 “TSC 6800 TEXT EDITING SYSTEM. A NUMBER OF 
♦ /BBB/ 

10.00 “BBBBBBBB 
* -»THIS IS? C / E / XX / ! 

1.00 “THIS IS AN XXXAMPLE OF THE FANTASTICALLY USEFUL 
2.00 =TSC 6800 TXXXT EDITING SYSTEM. A NUMBER OF 
3.00 “XXX$MPLES WILL BE SHOWN TO *L.LOW E*SY *ND 
4.00 =F*ST LXX$RNING OF ITS FEATURES. 

5.00 “FOLLOWING $RXX SOME NONSENSE LINES! 

5.25 “THIS LINXX CREATED WITH * EQUALS'. 

8.00 “RXXPLACE CURRENT LINE HERE 

8.10 “AN INSXXRTED LINE. 

9.00 “THIS XXDITOR IS FUN TO USE! 

11.10 “ANOTHXXR INSERTTD LINE. 

12.00 “THIS IS THXX END OF THIS FIL_?r 
13.00 “AT LXXAST FOR NOW. 

♦ N -4 

10.00 “BBBBBBBB 

♦ -1 I 

9.10 “TEST-TEST-TEST 
9.20 =1234567890 
9.30 “*D! 

BOTTOM OF FILE REACHED 

♦ ~D! 

BOTTOM OF FILE REACHED 

*2EJ 

*1 





ft 

m 



The previous tutorial has been only a brief introduction to the TSC 
Text Editing System. The remainder of this manual contains a detailed 
description of each directive with examples, in the next section, followed 
by "How to Use Tape" and "Adapting to Your System". It is Important to 
read and study the entire manual in order to fully understand and 
utilize all of the power and features of this editor. The source listing 
is the last section. 











13 



c 




EDITOR DIRECTIVES 

There are five groups of editor directives: environment directives, 
system directives, "current line" movers, edit directives, and tape 
directives. A complete description of all directives In each group Is 
given below. In the following descriptions, quantities enclosed In square 
brackets ([...]) are optional, and may be omitted. Verticle lines (|) 
separate options. 

Several of the editor directives use character strings as arguments. 

These arguments are either matched against strings In the text, or replace 
a string In the text. A string argument begins after a delimiter character 
and continues as a sequence of any legal characters until the delimiter Is 
again encountered. The delimiters are not considered part of the string 
to be used in the matching or replacement operations. Although the delimiters 
In the following descriptions are frequently represented as slashes, "/", 
any legal non-blank, non-alphanumerlc character may be used as the delimiter 
such as: */(•)$■,. = []:' etc. Note that the following characters 
may not be used to enclose strings unless they are preceded by either a 
plus (+) or minus (-) sign: "+" (denotes first line of file), "+" (denotes 
last line of file), "-" (denotes target Is above current line), and the 
character denoted by LINO (normally a pound sign) which Is used to flag 
line numbers. The delimiter character Is redefined In each new request by 
Its appearance before a string. If two strings exist in one directive (as 
In the Change directive), the same delimiter character must be used for each 
string. 

All of the editor directives use the <l!ne> Information preceeding the 
directive to position the pointer prior to any directive action. The <llne> 
parameter may of course be null, meaning leave the pointer at Its current 
position. All of the following are valid <l!ne> designators: 


1. Any number 

references a specific line number 

2. +n 

denoting the nth subsequent line 

3. -n 

denoting the nth previous line 

4. /<string>/ 

referring to the next line In 
the file containing the indicated 


string of characters 
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5. 

-/<strlng>/ 


references a previous line containing 
the Indicated string 

6 . 

+ (~ on some 

terminals) 

denotes the first line of the file 

7. 

+ (I on some 

terminals) 

denotes the last line of the file 

8. 

nul 1 


stay at current 1ine 



Many of the editor directives require <target> Information. This tells 
the editor to operate on the "current" line and all other lines in the file 
up to the line referenced by the <target>. In cases where a <target> Is 
required, leaving it null will make the <target> default to 1, meaning only 
the current line will be affected by the directive. All of the following 
are valid <target> designators: 


1. an Integer n 

2. #n 

3. /<string>/ 

J». -/<string>/ 

5. + 

6 . + 

7. % 

8. (null) 

As we have seen 
to which the directive will apply. 


indicates that n_ lines should be 
affected by the edit operation 

denotes the line number of the 
last line to be affected 

denotes the next line In the file 
containing the specified character 
string 

references a previous line con - 
talning the Indicated string 

denotes all lines up to the top of 
the file 

references all lines down to the 
bottom or last line of the file 

Indicates that n^ lines should be 
affected and In which direction 
from the current line 

defaults to 1 and only the current 
line is affected 


the form <target> Is used to specify a range of lines 
The directive will be applied to each 


line, starting with the line specified by <llne> and continuing until the 
target is reached. 

If a string <target> Is specified, the directive will apply to 


successive lines of text until a line containing the string is reached. 
Processing proceeds downward in the file unless the target Is preceded by 
a "-" (minus sign), indicating that processing is to occur upward (toward 





L 
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the first line) In the file. Targets may also be preceded by a plus sign 
(Indicating downward movement). If a line number target Is specified, 
processing begins at <llne> and proceeds toward the target line number. 

Some examples of <target>s are 

2 

+10 

-3 

/STRING/ 

+/STRING TARGET/ 

-/BACKWARD DISPLACEMENT TO A STRING/ 

+*ANY DELIMITER WILL WORK FOR STRING* 

++EVEN PLUS SIGNS WILL W0RK+ 

#23.000 

Any "/<strlng>/" descriptor may be postflxed with a column number 
Immediately after the delimiter which Indicates that the preceding string 
must begin In the column specified to be found. If the column specified Is 
not In the range of the ZONE In effect, the request will be Ignored. Some 
examples are 

/I DENT/11 
/PROGRAM/77 
*LABEL*2 
.COMMENT.30 

Environment Directives 

H[EADER] <columns> 

MEANING: 

A line of <columns> headings will be displayed. The heading ts 
of the form "123^56789012..." to Indicate the column number. 
Columns for which tab stops are set will contain a minus character 
Instead of the normal digit. If a column count Is given. It 
becomes the default count such that If Just "H" is typed after¬ 
wards, that number of columns will be printed. 


C 
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EXAMPLES: 


HEADER 72 

Display column number headings for 
72 columns. 

H 30 

Display column numbers for 30 
columns. 

NU[MBERS] [0FF|0N] 

MEANING: 



The line number flag Is turned off or on. If the flag Is off, 
then line numbers will never be printed. If neither "OFF" nor 
"ON" Is specified, then the flag will be toggled from Its current 
state. 


EXAMPLES: 


NUMBERS OFF 

Turn line number printing off. 

NU ON 

Turn It back on. 

NU 

f 

Toggle from "on" to "off" or from 
"off" to "on". 

RENfUMBER] 


MEANING: 



The "renumber" directive will renumber all of the lines In the 
current edit file. Lines In the renumbered file will start with 
line number "1.00" and will have an Increment of "1.00". The 
line which was "current" before the command will still be the 
current line after the command (although Its number will probably 


have been changed). 


EXAMPLES: 


RENUMBER 

Renumber the lines In the current 
working file. 

REN 


SET <name> * '<char>' 


MEANING: 



SET Is used to define certain special characters or symbols. The 
<name>s which may be set are: 

TAB - the tab character, 

FILL - the tab fill character, 
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EOL - the end of line character which may be used to separate 
several commands on a single line. 

LINO - the line number flag character which is used to indicate 
that a target is a specific line number. 

The default values are: TAB and EOL are "null". 

FILL Is "space" 

LINO is 


EXAMPLES: 

SET TAB = ':' 
SET TAB = " 

SET FILL « ' ' 

SET EOL = '$' 
SET LINO - 


Set the tab character to semicolon. 

Disable tabbing by setting the tab 
character to null. 

Set the tab fill character to a 
blank. 

Set the EOL character to $. 

Set the line number target escape 


TAB [<columns>] 

MEANING: 

Used to set the tab stops. All previous tab stops are cleared. 

If no columns are specified then the only action Is to clear all 
tab settings. Any TAB characters occurring beyond the last tab 
stop are left In the text. The maximum number of TAB stops 
allowed is 20. 

EXAMPLES: 

TAB 11, 18, 30 Set tab stops at columns 11, 18, 

and 30 . 

TAB 7 72 Set tab stops for a FORTRAN program 

TAB Clear all tab stops. 

V[ERIFY] [OFF|ON] 

MEANING: 

The verify flag Is turned "on" or "off". The verify flag Is 
used by the directives "CHANGE", and "NEXT" (and several others) 
to display their results. If neither "ON" nor "OFF" Is specified, 
then the flag will be toggled from Its current state. 

EXAMPLES: 


VERIFY OFF 
V ON 


Turn verification off. 
Turn it back on. 
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X 

MEANING: 

"X" is the cursor control command. Any time this command Is 
entered, the editor will Issue the 6 special character string 
previously set up. See "Adapting to your System" for details. 
EXAMPLES: 

X Output cursor control string. 

Z[0NE] [Cl, C2] 

MEANING: 

ZONE Is used to restrict all sub-string searches (FIND, CHANGE, 
<target>s, etc.) to columns "Cl" to "C2" Inclusive. Any substrings 
beginning outside those columns will not be detected. If Cl and 
C2 are not specified, then the zones will be reset to their 
defaults (columns 1 and 136). 

EXAMPLES: 

ZONE 11, 29 Restrict searches to columns 11 

through 29. 

ZONE Search columns 1 through 136. 

System Directives 

LOG 

MEANING: 

Exit the editor. 

EXAMPLES: 

LOG 

s[ top] 

MEANING: 

Same as "LOG". 

EXAMPLES: 

STOP 

S 

"Current Line" Movers 

B[0TT0M] 

MEANING: 

Move to the last line In the file and make It the current line. 
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EXAMPLES: 

BOTTOM 

B 


Make the last line of the file the 
current 1Ine. 



( 



F[lND] <target> [<occurrence>] 
MEANING: 


Move the current line pointer to the line specified by <target> 
and make It the current line. If the VERIFY flag (see VERIFY) Is 
on, the line will be printed. If <occurrence> Is specified (an 
unsigned Integer or an asterisk), the directive will be repeated 
<occurrence> times. An asterisk means all occurrences of the 
<target> will be found until the bottom or the top of the file 
Is reached. If the target Is not reached, the current line 
pointer will not be moved. 


EXAMPLES: 


FIND /STRING/ 


Find the next line containing the 
string "STRING". 


F /A VERY LONG STRING/ Find the next three lines contaln- 

F/THREE LINES/ 3 ing the string "THREE LINES". 

F/ALL TILL BOTTOM OF FILE/ * Find all following occurrences of 

the indicated string. 


F-/PR0GRAM/7 * Find all previous lines which 

contain the characters "PROGRAM" 
beginning in column seven. 


N[EXT] [<target> [<occurrence>]J 
MEANING: 

The line specified by the target is made the current line. If the 
VERIFY flag is on, the line will be printed. If <occurrence> Is 
specified, It must be an unsigned integer. It Indicates which 


next occurrence of a line containing the target Is to be made 
the current line. If the target Is not reached, the current line 
potnter will be positioned at the bottom of the file (top of 
the file for a negative <target>). If no target Is specified, the 
next line will be made the current line. 
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EXAMPLES: 

NEXT 5 

N 

N-10 

N/STRING TARGET/ 
N/THIRD OCCURRENCE/ 3 

T[OP] 

MEANING: 


Make the fifth following line the 
current line. 


Make the next line the current line. 

Make the tenth previous line current. 

Make the next line containing 
"STRING TARGET" to be the current 
line. 

Make the third line containing the 
Indicated string the current line. 


The first line of the file becomes the current line 


Edit Directives 

A[PPEND] /<str!ng>/ [<target>] 


MEANING: 

Append the specified <strlngs> just beyond the last character of 
the current line (and to successive until the target Is reached). 
If the string Is postflxed with a column number, then append the 
string beginning at the specified column (rather than at the end 


of the line). Any characters previously In the line following 
the specified column will be lost. 


EXAMPLES: 

APPEND /./ 

A *HELL0* 2 

A/SEQUENCE/73 *END*7 


Append a period to the end of the 
current line. 

Append the word "HELLO" to the end 
of the current 1Ine and to the end 
of the next line. 

Append the word "SEQUENCE" starting 
In column 73 of the current line and 
successive lines until a line con - 
talnlng the characters "END" begin¬ 
ning In column seven Is found. 


C(HANGE] /<strlng> x /<strlng> 2 / [<target> [<occurrence>]] 


MEANING: 

Replace the string specified by <string>i with the string specified 
by <string> 2 * If no <target> Is specified, only the current line 



( 




( 
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Is affected. The slashes represent any nonblank delimiter 
character. <occurrence> Is used to specify which occurrence cf 
<strlng>i is to be replaced In each line. It Is either an un¬ 
signed Integer or an asterisk, "*" signifying that all occur¬ 
rences of the substring <string>j are to be replaced with <strlng> 2 « 
By default, only the first occurrence will be changed. Note that 
If <occurrence> is specified, and If changes are to occur to the 
current line only, then the target should be a 1 (one). 

EXAMPLES: 

CHANGE /THIS/THAT/ 

C/A/B/ 1* 

C /FIRST/LAST/10 

C /NEW/OLD/ /A TARGET/ 

C ,A,, -10 * 

C*HELL0* 

C0[PY] [<destlnatlon-target> [<range-target>]] 

MEANING: 

The current line and successive lines until the <range-target> 

Is reached are copied so that they follow the line specified 
by destination-target . The default destination-target Is 1, 
thereby causing a copy of the current line to be placed after 
the next line. The default <range-target> Is 1, thereby copying 
only one line. After the directive Is executed, the current 
line pointer will be positioned at the new position of the last 
line copied. Some lines may be renumbered after a copy. 


Replace the first occurrence of 
"THIS" in the current line with 
"THAT". 

Change all occurrences of "A" In 
the current line to "B". 

Change the first occurrence of 
"FIRST" to "LAST" in the current 
line and also in the nine follow¬ 
ing 1ines. 

Change the first occurrence of 
"NEW" to "OLD" in each line down 
through the line containing the 
string "A TARGET". 

Remove all "A"s in the current 
line and in the nine preceding 
1ines. 

Delete the character string 
"HELLO" from the current line. 
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EXAMPLES: 

CO #18 Put a copy of the current line 

after line 18. 

COPY #3 4 Copy four lines beginning with the 

current 1 ine and place them after 
line 3. 

CO /HELLO DOLLY/ +/END OF RANGE/ After the next line which 

contains the string "HELLO DOLLY" 
place a copy of each line start¬ 
ing with the current line through 
the line containing "END OF RANGE". 



D[ELETE] [<target>] 

MEANING: 

The current line (and successive lines until the target Is reached) 
Is deleted. After the directive Is executed, the current line will 
be the line following the last line deleted. 

EXAMPLES: 

DELETE 5 Delete five lines (the current 

line and the next four lines). 

D Delete the current line. 

D /STRING/ Delete lines from the current 

line through the next line that 
contains the string "STRING". 

EXP[AND] [<target>] 

MEANING: 

The current tab character Is expanded within all lines, beginning 
.with the current line (and down to and including the line specified 
by target). Since tabs are normally expanded as lines are inserted 
Into the file, this directive Is primarily of use when one has 
forgotten to define a tab character. 

EXAMPLES: 

EXPAND 100 Expand 100 lines starting with 

the current line. 

EXP Expand the current line. 





I[NSERT] 

MEANING: 

The editor will enter the buffered Input mode, prompting with line 
numbers (unless line numbers have been disabled, see the "NUMBERS" 
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directive) and insert the lines below the current line. Buffered 
input continues until a line beginning with the breakpoint 
character (pound sign) in column one is received. The characters 
following the breakpoint character are treated as an editor 
directive. The editor will try to choose an Insertion increment 
sufficient to insert at least 10 lines, or, if that Is not 
possible, the smallest increment possible. The current line 
pointer Is positioned at the last line Inserted. It should be 
noted that the editor may renumber text lines following the 
inserted text if the inserted line numbers overlap line numbers 
previously in the file. 

EXAMPLES: 

INSERT Accept line Input after the current 


C 



iI nsert] <text> 

MEANING: 

The text (sequence of characters) which immediately follows the 
separator (or blank) after the directive name will be inserted 
as a separate line below the current line of the file. The line 
inserted becomes the current line. It should be noted that the 
editor may renumber text lines following the inserted text If 
the inserted line numbers overlap line numbers previously In the 
file. 

EXAMPLES: 

I THIS BELOW THE CURRENT LINE OF THE FILE 
INSERT EVERYTHING AFTER THE FIRST BLANK 

M0[VE] [<destinatlon-target> [<range-target>]] 

MEANING: 

The current line (and successive lines until the <range-target> 
is reached) Is moved so that it follows the line specified by 
<destInation-target>. The default <destlnatlon-target> Is 1, 
thereby moving the current line after the next line In the file. 




The default <range-target> Is 1, thereby moving only one line. 
After the directive Is executed the current line pointer will 
be positioned at the new position of the last line moved. Some 
lines may be renumbered after a move. 


EXAMPLES: 


MOVE 3 


Move the current 1Ine down three 
1ines. 


MO -/PROGRAM/ 5 


MO #1 /TARGET STRING/ 


Insert the current line and all 
lines down through the line con¬ 
taining "TARGET STRING" after 
line 1. 

Move five lines (including the 
current line) up within the 
file so that they follow a 
line containing the character 
"PROGRAM". 


MO #10 -5 


Move the current 1Ine and the 
four previous lines below line 


10 . 


0[VERLAY] [<delimiter>] 

MEANING: 

The current line Is printed, then a line of input is accepted from 
the terminal (the overlay line). The overlay line will be posi¬ 
tioned directly beneath the line printed out. Each character of 
the overlay that is different from the <delimiter> character 
(default is a blank) will replace the corresponding character in 
the current line. The overlaid line will be printed if verify 
is "ON". 

EXAMPLES: 

OVERLAY 


25.00 - THIP IS THE CORRENT LUNE. 
OVERLAY S U I 

25.00 - THIS IS THE CURRENT LINE. 


U 


0[VERLAY] <d><text> 

MEANING: 

This directive is similar to the previous form of the OVERLAY 
directive with these differences: (1) The current line is not 
printed. (2) The remainder of the directive line is taken as the 
overlay text. 
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EXAMPLES: 

OVERLAY—AT.(.). 

25-00-THAT IS THE (CURRENT) LINE 

PfRINT] [<target>] 

MEANING: 

Beginning with the current line, lines are printed until the line 
specified by target is reached. By default, only the current line 
will be printed. 

EXAMPLES: 

P 

PRINT 5 
P -10 

PRINT *STRING* 

P -/STRING/ 

R[EPLACE] [<target>] 

MEANING: 

A "DELETE" from the current line through the <target> line Is 
performed. The editor then enters the buffered input mode, 
putting the new lines into the area vacated. It Is not 
necessary to enter the same number of lines as were deleted. The 
line numbers of the lines inserted will probably not be the same 
as those deleted. The current line pointer will be positioned 
at the last line inserted. Be default, only the current line will 
be deleted. 

EXAMPLES: 

R Replace the current line. 

REPLACE 10 Replace ten lines starting with 

the current 1ine. 

R /TARGET STRING/ Replace all lines from the current 

line through the line containing 
"TARGET STRING". 


Print the current line. 

Print five lines starting with the 
current line. 

Print the current line and the 
nine previous lines. 

Print all lines down through the 
next line containing "STRING". 

Print all lines up through the 
next previous line containing 
"STRING". 
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-<text> 

MEANING: 

The directive replaces the current line with the text supplied. 
The replacement text begins with the first character following the 
equals sign. The current line pointer Is not moved. 

EXAMPLES: 

- THIS IS THE REPLACEMENT TEXT. 

(null) 

MEANING: 

The null directive (I.e., Just a carriage return) prints the 
current line. 


Tape Directives 

GAP 

MEANING: 

Issue a string of 40 null characters to the tape unit. 

EXAMPLES: 

GAP Puts leader or gap on tape. 

''..if?.. 

READ 

MEANING: 

This directive will read the next file present on the loaded tape. 
All lines read will be appended to the end of the current work 
file and the last line read will become the "current" line. 
EXAMPLE: 

HEAD Get the next fU® from the t a P«* 



C 


% 

% 

1 



SAVE 

MEANING: 

Write the entire current file out to the tape unit. The file is 
written with no line numbers and is terminated with an ASCII 
"control Z" character. 

EXAMPLE: 

cave Puts the current file on tape. 


c 
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W[RITE] [<target>] 

(® MEANING: 

All lines from the current line through the target line are 
written out to tape. The same format as SAVE is used. 

EXAMPLES: 

WRITE Write the current line to tape. 

W #20 Write all lines from the current 

line through line #20 out to the 
tape unit. 




USING TAPE 

The TSC Text Editing System contains four tape directives. These 
can be used with most types of tape devices including paper tape and 
Kansas City Standard cassette systems such as the SWTPC AC-30 tape 
system. When using SAVE or WRITE the text is sent out to the tape In 
the following form: 

TEXT...(carriage return)...TEXT...(C.R.)"control Z". 

The "control Z" is the end of file marker. Note that there are no 
line numbers put on the tape, and also no line feeds or null characters, 
so the file Is not suitable for displaying on a terminal In this form. 

When a tape is read back into the editor using the READ command, line 
numbers are automatically put back in. The tape will be read until a 
"control Z" is found. 

THe TSC Text Editing System provides delay after tape turn on for 
cassettes and also issues a control character for each "tape on" "tape 
off", "record on", and "record off". To set these characters to those 
needed by the tape system, see "Adapting to Your System". 

The fourth tape directive Is the GAP command. This is used to 
output 40 nulls to the tape. This can be used to put leader or trailer 
on the tape, or a gap between files. 
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ADAPTING TO YOUR SYSTEM 


The TSC Text Editing System Is assembled to run directly on a 
Motorola MIKBUG based 6800 system, such as the SWTPC 6800. It can, however, 
be converted with great ease to run on most other 6800 systems. The 
following Information should be all that is necessary in most cases. Read 
through everything carefully before doing any conversion to be sure every¬ 
thing Is understood. This section also contains information for MIKBUG 
machines to allow setting up the TAPE control characters and the cursor 
control characters for the X command. There Is also information for setting 
memory end. 


1. MEMORY END - The editor Is assembled with memory end set at the end 
of an 8K system ($1FFF). To change this for your system put the end 
of memory address In locations $0212 and $0213. The memory end 
should not be set below address $17^, the end of the first 6K block 
of memory. 


2. INPUT CHARACTER ROUTINE - This routine Is called by the editor and 
requires the following: The character input should be returned in 
the A accumulator, the B accumulator should remain unchanged, as well 
as the index (X) register. The editor Is assembled referencing 
MIKBUG's input routine. To substitute the address of your input 
routine, enter It at location $0207 and $0208. 

3. OUTPUT CHARACTER ROUTINE - This routine Is called by the editor and 
performs the following: The character in the A accumulator Is output 
to the terminal. The B accumulator and X registers remain unchanged. 

The editor is assembled referencing MIKBUG's output routine. To substitute 
the address of your output routine, enter It at location $020A and 
$020B. Both the Input and output routines should be written as sub¬ 
routines, meaning the last Instruction should be RTS. 


( 



1». FULL DUPLEX - If your terminal requires software echo of typed characters 
and your Input routine does not provide this, change the JMP (7E) at 
location $0206 to a JSR (BD). 






5. 



C 
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INPUT CHARACTER FROM TAPE - If you use a tape system connected to a 
differnet I/O port than the terminals or use a different routine 
to handle tape operations, you can set the address of this routine 
at locations $0200 and $020E. The character should be in A, while B 
and X should remain unchanged. The editor is assembled with MIKBUG's 
regular input routine. 


6. OUTPUT CHARACTER TO TAPE - As explained above, if necessary to use a 
separate output routine for tape operations, set the address at 
locations $02)0 and $0211. Character should be in A keeping B and X 
unchanged. The editor is assembled with the address of MIKBUG's 
regular output routine. 


7. BACKSPACE CHARACTER - The backspace character (‘'control" H) Is stored 
at location $049D. It is presently a 08. Change as desired. 

8. DELETE CHARACTER - The delete character Is stored in location $0i»AC. 

It is currently a $18 ("control" X). This may be changed as desired. 

9. BELL CHARACTER - When the input buffer is overflowed (more than 136 
characters typed) the editor outputs a "bell" character (07). This 
is stored at location $04C2 and may be changed as desired. 

10. TAPE TURN ON DELAY - The editor is assembled to delay approximately 

2 seconds after tape turn on before outputting data. This may be set 
as needed at location $00B6. It Is currently 06. Setting it to 00 Is 
zero delay, with larger values being longer delays. 

11. TAPE CONTROL CHARACTERS - The editor outputs four special characters to 
control tape operations. These characters are presently set to nulls 
(00). To set these to your systems requirements, change the following 
locations. 

TAPE ON (PLAY) - $00B7 

TAPE OFF (PLAY) - $00B8 

TAPE ON (RECORD) - $0089 

TAPE OFF (RECORD) - $00BA 

12. CURSOR CONTROL CHARACTERS ~ The editor outputs a string of six characters 
upon execution of the "X" command. These can be set to special cursor 
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or other control characters. They are presently nulls (00). Set 
desired characters at location $0982 through $0987- 

13. RETURN TO MONITOR ADDRESS - Upon execution of STOP, S, or LOG, the 
editor returns to the system monitor. The editor Is assembled with 
the address of MIKBUG. Enter the address of your monitor at location 
$098C and $0980. 


SYSTEM CHARACTERISTICS 

1. The maximum line number is 9999.99. If more than 9,999 1 l,nes are 
entered, the line number counter will turn over (go back to 0), 
therefore, the editor should not be used with files of 10,000 lines 
or longer. (This Is not really a limitation since 10,000 null lines 
(line number followed by a carriage return) uses up 40K of memory!) 

2. The input buffer will hold 136 characters. If more than 136 characters 
are typed, they will be ignored and a "bell" character output to the 




terminal. To terminate the line it Is necessary to type the backspace > 
character and then a carriage return. 

3. Setting the "tab" character and the "fill" character the same will 
defeat the TAB feature. There is no logical reason to do this. 

4. Setting the "E0L" character will allow using multiple commands at a 
time. Insert and overlay cannot be followed by other commands. An 
example of E0L use (with E0L set to "$") is: 



tD2$P10$T 

This sequence will delete the first 2 lines of the file, then print 
the next 10 lines, and finally, return the pointer to the top of the 


file. 






31 


MORE EXAMPLES 


NEW FILE! 

1.00 =** THIS IS A TEST PROGRAM ** 

2.00 = 

3.00 =fORGf$0100 

4.00 =STARTfLDXf4$FFFfSET count 

5.00 =#3 

3.00 =f0RGf$0100 
♦SET TAB =/ f' 

♦TAB 9 16 26 
♦SET EOL=' $' 

♦EXP ! 

♦ T $ P 5 

1.00 =** THIS IS A TEST PROGRAM ** 

2.00 = 

3.00 = ORG $0100 

4.00 =START LDX ♦$FFF SET COUNT 

♦ I 

5.00 - i LDA A i +$40fSET SECOND COUNT 
6.00 =LOOPfDEC AfJDEC THE COUNT 
7.00 =fBNEfLOOPfLOOPTILL DONE 
8.00 = f DEX if DEC THE X REG 
9.00 =fBNEfL00P1fLOOPfTIL DONE 
10.00 = i LDA A J♦ * (? J SET UP CHAR 
11.00 =fJSRfOUTCHRfOUTPUT IT 
12.00 =DONEfBRAfDONEfLOOP FOREVER 
13.00 =♦! 

♦ NU 
♦P! 

** THIS IS A TEST PROGRAM ** 


ORG 


$0100 


START LDX 


♦ $FFF 

SET COUNT 

LDA 

A 

♦ $40 

SET SECOND COUNT 

LOOP DEC 

A 


DEC THE COUNT 

BNE 


LOOP 

LOOPTILL DONE 

DEX 



DEC THE X REG 

BNE 


L00P1 

LOOPfTIL DONE 

LDA 

A 

#*(? 

SET UP CHAR 

JSR 


OUTCHR 

OUTPUT IT 

DONE BRA 


DONE 

LOOP FOREVER 

♦ NU 

♦ 




12.00 =DONE 

BRA 

DONE LOOP FOREVER 

♦ -fFFF t C »FF 

fFFF 


4.00 =START LDX 

♦$FFFF SET COUNT 


♦H 45 ♦ P 

12345678-012345-789012345-7890123456789012345 
4.00 =S1ART LDX ♦$FFFF SET COUNT 
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♦ + 1 0 


5*00 = 

OVERLAY LOOP1 

LDA 

A 

♦ ♦40 

SET 

SECOND 

COUNT 

5.00 =L00P1 
♦C i L00P1 t L00P2 i 

LDA 

! 

A 

♦ ♦40 

SET 

SECOND 

COUNT 

5.00 =L00P2 

LDA 

A 

♦ ♦40 

SET 

SECOND 

COUNT 

9.00 = 

BNE 


L00P2 

LOOP 

JTIL DONE 


♦ " C fLOOP i L00P1 

t ! 




6.00 

=L00P1 

DEC 

A 


DEC THE COUNT 

7.00 


BNE 


L00P1 

LOOPTILL DONE 

12.00 

=DONE 

BRA 


DONE 

L00P1F0REVER 

*Cfli 






12.00 

=DONE 

BRA 


DONE 

LOOP FOREVER 

♦7CrPT»P 

T 





7.00 

ss 

BNE 


L00P1 

LOOP TILL DONE 

*Ar ! r 






7.00 

= 

BNE 


L00P1 

LOOP TILL DONE ! 

♦ B 






♦I JEND 

£ 






▼ 

13.00 

ss 

END 




♦R 






13.00 

ss 





14.00 

= f END 





15.00 






16.00 

=* THATS 

ALL 

* 



17.00 

=*~P! 





1.00 

=** THIS 

IS 

> TEST PROGRAM ** 

2.00 

ss 





3.00 

ss 

ORG 


♦0100 


4.00 

=START 

LDX 


♦♦FFFF 

SET COUNT 

5.00 

=L00P2 

LDA 

A 

♦♦40 

SET SECOND COUNT 

6.00 

=:L00P1 

DEC 

A 


DEC THE COUNT 

7.00 


BNE 


L00P1 

LOOP TILL DONE ! 

8.00 

= 

DEX 



DEC THE X REG 

9.00 

=: 

BNE 


L00P2 

LOOP?TIL DONE 

10.00 

= 

LDA 

A 

♦ *@ 

SET UP CHAR 

11.00 

sr 

JSR 


OUTCHR 

OUTPUT IT 

12.00 

=DONE 

BRA 


DONE 

LOOP FOREVER 

13.00 

ss 





14.00 

ss 

END 




15.00 

ss 





16.00 

=* THATS 

ALL 

* 




♦ LOG 

* 




TSC 6800 TEXT EDITING SYSTEM 


PAGE 1 


LOCN B1 B2 B3 

* 

* COPYRIGHT 1977 (C) BY 

* 

* TECHNICAL SYSTEMS CONSULTANTS 

* BOX 2574 

* W. LAFAYETTEf INDIANA 47906 

* (317) 742 7509 

* 


* EXTERNAL EQUATES 


01FF 

STACK 

EQU 

♦ 01FF 

EODO 

MIKBUG 

EQU 

♦ EODO 

0023 

PROMPT 

EQU 

♦ 23 

OOOD 

CRGRET 

EQU 

♦ D 

0018 

DELCOD 

EQU 

♦ 18 

0008 

BACK'SP 

EQU 

♦ 8 

0007 

BELL 

EQU 

♦ 7 




ORG 

♦ 40 


* TEMPORARY 

STORAGE 

0040 

TEMP 

RMB 

2 

0042 

XSAUE 

RMB 

2 

0044 

BUFPNT 

RMB 

2 

0046 

BUFSAV 

RMB 

2 

0048 

CURPOS 

RMB 

2 

004A 

NEWPOS 

RMB 

2 

004C 

SRCHPT 

RMB 

2 

004E 

STRNGB 

RMB 

2 

0050 

STRNGE 

RMB 

2 

0052 

STRGB1 

RMB 

2 

0054 

STRGE1 

RMB 

2 

0056 

STRPNT 

RMB 

2 

0058 

SPCPT1 

RMB 

2 

005A 

SPCPT2 

RMB 

2 

005C 

LASTNO 

RMB 

2 

005E 

Z0NE1 

RMB 

2 

0060 

Z0NE2 

RMB 

2 

0062 

ZONBUF 

RMB 

2 

0064 

CHGPNT 

RMB 

2 

0066 

CHGEND 

RMB 

2 

0068 

OCRTMP 

RMB 

2 

006A 

NUMFLG 

RMB 

1 

006B 

VERFLG 

RMB 

1 

006C 

MSLFLG 

RMB 

1 

006D 

PSTZFL 

RMB 

1 

006E 

OCRCNT 

RMB 

2 

0070 

FNDFL.G 

RMB 

1 

0071 

STRCN1 

RMB 

1 

0072 

OVRBEG 

RMB 

1 

0073 

OVREND 

RMB 

1 

0074 

NOCURL 

RMB 

1 




TSC 6800 TEXT EDITING SYSTEM 


LOCN 

0075 

0076 

0077 

0078 

0079 

007A 

007B 

007C 

007D 

007E 

007F 

0080 

0081 

0082 

0083 

0084 

0085 

0086 

0087 

0088 

0089 

008A 

008B 

008C 

008D 

008F 

0090 

0093 

0095 

0096 

0097 

0099 

009B 

009D 

00B1 

00B2 

00B3 

00B4 

00B5 

00B6 

00B7 

00B8 

00B9 

OOBA 

OOBB 


B1 B2 B3 



LINFLG 

RMB 

1 


NXTFLG 

RMB 

1 


ALLFLG 

RMB 

1 


OCRFLG 

RMB 

1 

- 

CHGONF 

RMB 

1 


APPCOL 

RMB 

1 


STRCNT 

RMB 

1 


INCAMT 

RMB 

1 


BMPFLG 

RMB 

1 


EGUFLG 

RMB 

1 


INLMFL 

RMB 

1 


MOVFLG 

RMB 

1 


REPFLG 

RMB 

1 


TMPCHR 

RMB 

1 


CHKFLG 

RMB 

1 


SNGLIN 

RMB 

1 


CHGFLG 

RMB 

1 


STRCN2 

RMB 

1 


FNONFL 

RMB 

1 


LSTFLG 

RMB 

1 


DECCNT 

RMB 

1 


PRNFLG 

RMB 

1 


CPYDRC 

RMB 

1 


DRCTN 

RMB 

1 


CHRCNT 

RMB 

2 


INZFLG 

RMB 

1 


NUMBER 

RMB 

3 


TRGLIN 

RMB 

2 


DELIM 

RMB 

1 


HEDCNT 

RMB 

1 


FILBEG 

RMB 

2 


FILEND 

RMB 

2 


TABPNT 

RMB 

2 


TABBUF 

RMB 

20 

00 

TABEND 

FCB 

0 

00 

TABCH 

FCB 

XL 

20 

FILL 

FCC 

/ / 

23 

LINO 

FCC 

'#' 

00 

EOL 

FCB 

0 

06 

DELAY 

FCB 

6 

00 

TONCH 

FCB 

0 

00 

TOFCH 

FCB 

0 

00 

RONCH 

FCB 

0 

00 

ROFCH 

FCB 

0 


BUFFER 

RMB 

136 



ORG 

$0200 


* PROGRAM STARTS HERE 


0200 7E 03 55 START JMP 


INITLZ 




% 


TSC 6800 TEXT EDITING SYSTEM 


LOCN B1 B2 B3 

0203 7E 03 83 RESTRT JMP PEDIT 

* EXTERNAL 1-0 ROUTINES 


0206 

7E 

El 

AC 

INCH 

JMP 

♦El AC 



0209 

7E 

El 

D1 

OUTCH 

JMP 

♦E1D1 



020C 

7E 

El 

AC 

TINCH 

JMP 

♦El AC 

TAPE 

INPUT ROUTINE 

020F 

7E 

El 

D1 

TOUCH 

JMP 

♦E1D1 

TAPE 

OUTPUT ROUTINE 

0212 

IF 

FF 


MEMEND 

FDB 

♦ 1FFF 




* COMMAND TABLE 


0214 41 
0215 50 
0216 50 
0217 45 
0218 4E 
0219 44 
021A 00 
021B 12 DD 
02ID 41 

021E 00 
021F 12 DD 
0221 42 
0222 4F 
0223 54 
0224 54 
0225 4F 
0226 4D 
0227 00 
0228 09 8E 
022A 42 

022B 00 
022C 09 8E 
022E 43 
022F 48 
0230 41 
0231 4E 
0232 47 
0233 45 
0234 00 
0235 OD CB 
0237 43 
0238 4F 
0239 50 
023A 59 
023B 00 
023C OF F3 
023E 43 
023F 4F 
0240 00 
0241 OF F3 


TABLE FCC 


FCB 

FDB 

FCC 

FCB 

FDB 

FCC 


FCB 

FDB 

FCC 

FCB 

FDB 

FCC 


FCB 

FDB 

FCC 


FCB 

FDB 

FCC 

FCB 

FDB 


'APPEND' 


0 

APPEND 

'A' 

0 

APPEND 

'BOTTOM' 


0 

BOTTOM 

'B' 

0 

BOTTOM 

'CHANGE' 


0 

CHANGE 

'COPY' 


0 

COPY 

'CO' 
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COPY 
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LOCN B1 B2 B3 

0243 43 

FCC 

'C' 

0244 00 

FCB 

0 

0245 OD CB 

FDB 

CHANGE 

0247 44 

FCC 

7 DELETE 

0248 45 

0249 4C 

024A 45 

024B 54 

024C 45 

024D 00 

FCB 

0 

024E OC 8A 

FDB 

DELETE 

0250 44 

FCC 

'D' 

0251 00 

FCB 

0 

0252 OC 8A 

FDB 

DELETE 

0254 45 

FCC 

'EXPAND 

0255 58 

0256 50 

0257 41 

0258 4E 



0259 44 

025A 00 

FCB 

0 

025B 12 5C 

FDB 

EXPAND 

025D 45 

FCC 

'EXP' 

025E 58 

025F 50 

0260 00 

FCB 

0 

0261 12 5C 

FDB 

EXPAND 

0263 46 

FCC 

'FIND' 

0264 49 

0265 4E 


■j 

0266 44 



0267 00 

FCB 

0 

0268 09 CF 

FDB 

CFIND 

026A 46 

FCC 

'F' 

026B 00 

FCB 

0 

026C 09 CF 

FDB 

CFIND 

026E 47 

FCC 

'GAP' 

026F 41 

0270 50 



0271 00 

FCB 

0 

0272 14 13 

FDB 

GAP 

0274 48 

FCC 

'HEADER' 

0275 45 

0276 41 

0277 44 

0278 45 

0279 52 

027A 00 

FCB 

0 

027B 11 IB 

FDB 

HEADER 

027D 48 

FCC 

'H' 

027E 00 

FCB 

0 
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c 



LOCN B1 

B2 B3 



027F 11 

IB 

FDB 

HEADER 

0281 49 
0282 4E 
0283 53 
0284 45 
0285 52 
0286 54 


FCC 

'INSERT' 

0287 00 


FCB 

0 

0288 OA 

C8 

FDB 

INSERT 

028A 49 


FCC 

' I' 

028B 00 


FCB 

0 

028C OA 

C8 

FDB 

INSERT 

028E 4C 
028F 4F 
0290 47 


FCC 

'LOG' 

0291 00 


FCB 

0 

0292 09 

89 

FDB 

EXIT 

0294 4D 
0295 4F 
0296 56 
0297 45 


FCC 

'MOVE' 

0298 00 


FCB 

0 

0299 OF 

D4 

FDB 

MOVE 

029B 4D 
029C 4F 


FCC 

'MO' 

029D 00 


FCB 

0 

029E OF 

D4 

FDB 

MOVE 

02A0 4E 
02A1 45 
02A2 58 
02A3 54 


FCC 

'NEXT' 

02A4 00 


FCB 

0 

02A5 09 

CC 

FDB 

NEXT 

02A7 4E 
02A8 55 
02A9 4D 
02AA 42 
02AB 45 
02AC 52 
02AD 53 


FCC 

'NUMBERS' 

i 

02AE 00 


FCB 

0 

02AF 09 

ID 

FDB 

NUMSET 

02B1 4E 
02B2 55 


FCC 

'NU' 

02B3 00 


FCB 

0 

02B4 09 

ID 

FDB 

NUMSET 

02B6 4E 


FCC 

'N' 

02B7 00 


FCB 

0 

02B8 09 

CC 

FDB 

NEXT 

02BA 4F 
02BB 56 
02BC 45 
02BD 52 


FCC 

'OVERLAY' 
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LOCN 

B1 

B2 B3 



02BE 

4C 




02BF 

41 




02C0 

59 




02C1 

00 


FCB 

0 

02C2 

OF 

21 

FDB 

OOERLA 

02C4 

4F 


FCC 

'O' 

02C5 

00 


FCB 

0 

02C6 

OF 

21 

FDB 

OUERLA 

02C8 

50 


FCC 

'PRINT' 

02C9 

52 




02CA 

49 




02CB 

4E 




02CC 

54 




02CD 

00 


FCB 

0 

02CE 

08 

77 

FDB 

PRINT 

02D0 

50 


FCC 

'P' 

02D1 

00 


FCB 

0 

02D2 

08 

77 

FDB 

PRINT 

02D4 

52 


FCC 

'READ' 

021*5 

45 




02D6 

41 




02D7 

44 




02D8 

00 


FCB 

0 

02D9 

14 

2A 

FDB 

READ 

02DB 

52 


FCC 

'RENUMBER 

02DC 

45 




02DD 

4E 




02DE 

55 




02DF 

4D 




02E0 

42 




02E1 

45 




02E2 

52 




02E3 

00 


FCB 

0 

02E4 

06 

A5 

FDB 

RENUMB 

02E6 

52 


FCC 

'REN' 

02E7 

45 




02E8 

4E 




02E9 

00 


FCB 

0 

02EA 

06 

A5 

FDB 

RENUMB 

02EC 

52 


FCC 

'REPLACE' 

02ED 

45 



- 

02EE 

50 




02EF 

4C 




02F0 

41 




02F1 

43 



• 

02F2 

45 




02F3 

00 


FCB 

0 

02F4 

OC 

87 

FDB 

REPLAC 

02F6 

52 


FCC 

'R' 

02F7 

00 


FCB 

0 

02F8 

OC 

87 

FDB 

REPLAC 

02FA 

53 


FCC 

'SAUE' 
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TEXT EDITING 

SYSTEM 


LOCN 

B1 

B2 B3 



02FB 

41 




02FC 

56 




02FD 

45 




02FE 

00 


FCB 

0 

02FF 

13 

9D 

FDB 

SAVE 

0301 

53 


FCC 

'SET' 

0302 

45 




0303 

54 




0304 

00 


FCB 

0 

0305 

11 

CC 

FDB 

SET 

0307 

53 


FCC 

' STOP' 

0308 

54 




0309 

4F 




030A 

50 




030B 

00 


FCB 

0 

030C 

09 

89 

FDB 

EXIT 

030E 

53 


FCC 

'S' 

030F 

00 


FCB 

0 

0310 

09 

89 

FDB 

EXIT 

0312 

54 


FCC 

'TAB' 

0313 

41 




0314 

42 




0315 

00 


FCB 

0 

0316 

10 

DO 

FDB 

TAB 

0318 

54 


FCC 

'TOP' 

0319 

4F 




031A 

50 




031B 

00 


FCB 

0 

031C 

09 

9D 

FDB 

TOP 

031E 

54 


FCC 

'T' 

031F 

00 


FCB 

0 

0320 

09 

9D 

FDB 

TOP 

0322 

56 


FCC 

'VERIFY' 

0323 

45 




0324 

52 




0325 

49 




0326 

46 




0327 

59 




0328 

00 


FCB 

0 

0329 

09 

63 

FDB 

VERSET 

032B 

56 


FCC 

'V' 

032C 

00 


FCB 

0 

032D 

09 

63 

FDB 

VERSET . 

032F 

57 


FCC 

'WRITE' 

0330 

52 




0331 

49 




0332 

54 




0333 

45 




0334 

00 


FCB 

0 

0335 

13 

AD 

FDB 

WRITE 

0337 

57 


FCC 

'W' 
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LOCN B1 
0338 00 
033? 13 
033B 58 

033C 00 
033D 0? 
033F 5A 
0340 4F 
0341 4E 
0342 45 
0343 00 
0344 11 
0346 5A 

0347 00 
0348 11 
034A 00 


034B 4E 
034C 45 
034D 57 
034E 20 
034F 46 
0350 49 
0351 4C 
0352 45 
0353 3A 
0354 04 


0355 8E 
0358 CE 
035B DF 
035D DF 
035F CE 
0362 FF 
0365 CE 
0368 DF 
036A CE 
036D DF 
036F 86 
0371 97 
0373 4F 
0374 97 
0376 4A 
0377 97 
037? 97 
037B 97 
037D CE 
0380 BD 


TEXT EDITING SYSTEM 


PAGE 8 


B2 B3 
AD 


FCB 0 

FDB WRITE 

FCC 7 X 7 


FCB 0 

78 FDB XCNTRL 

FCC 'ZONE 7 


FCB 0 

7E FDB SZONE 

FCC 7 Z 7 

FCB 0 

7E FDB SZONE 

FCB 0 


* NEW FILE ‘STRING 
NWFSTR FCC 7 NEW FILE* 7 


FCB 4 


* INITIALIZATION ROUTINE 


01 

FF INITLZ 

LDS 


♦STACK 


14 

92 

LDX 


♦BEGPNT 


97 


STX 


FILBEG 


9? 


STX 


FILEND 

SET END ALSO 

02 

03 

LDX 


♦RESTRT 


Afi48 

STX 


♦ A048 

SET RESTART ADDRESS 

00 

01 

LDX 


#1 

SET ZONES 

5E 


STX 


Z0NE1 


01 

36 

LDX 


♦$0136 


60 


STX 


Z0NE2 


46 


LDA 

A 

#70 

SET UP HEADER 

96 


STA 

A 

HEDCNT 




CLR 

A 



9D 


STA 

A 

TABBUF 

FIX STORAGE 



DEC 

A 



8F 


STA 

A 

INZFLG 


6A 


STA 

A 

NUMFLG 

TURN ON NUMBERS 

6B 


STA 

A 

VERFLG 

ALSO VERIFICATION 

03 

4B 

LDX 


♦NWFSTR 

POINT TO STRING 

04 

83 

JSR 


PSTRNG 

OUTPUT IT 


4i 

'W 
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LOCN B1 B2 B3 


* RESTART ENTRY POINT 


0383 

DE 

97 PEDIT 

LDX 

FILBEG 

POINT TO BEGIN 

0385 

DF 

48 

STX 

CURPOS 


0387 

7F 

00 6C 

CLR 

MSLFLG 







* MAIN 

EDIT 

LOOP 


038A 

8E 

01 

FF 

EDIT 

LDS 


♦STACK 

SETUP STACK POINTER 

038D 

DF 

40 



STX 


TEMP 

SAVE POINTER 

038F 

DE 

48 



LDX 


CURPOS 

SET CURRENT POSITION 

0391 

DF 

4A 



STX 


NEWPOS 

SAVE IT 

0393 

CE 

00 

6D 


LDX 


♦PSTZFL 


0396 

4F 




CLR 

A 


CLEAR ACC* 

0397 

A7 

00 


EDIT1 

STA 

A 

0 r X 

CLEAR OUT LOCATION 

0399 

08 




INX 



BUMP POINTER 

039A 

BC 

00 

8E 


CPX 


♦CHRCNT+1 


039D 

26 

F8 



BNE 


EDIT1 


039F 

DE 

40 



LDX 


TEMP 

RESTORE POINTER 

03A1 

96 

8F 



LDA 

A 

INZFLG 

INITIALIZE? 

03A3 

27 

06 



BEG 


EDIT2 


03A5 

7F 

00 

8F 


CLR 


INZFLG 


03A8 

7E 

OA 

EA 


JMP 


INSER4 

GO INSERT LINES 

03AB 

96 

6C 


EDIT2 

LDA 

A 

MSLFLG 

MULTIPLE ST, PER LINE? 

03AD 

26 

22 



BNE 


EDIT55 


03AF 

97 

8E 



STA 

A 

CHRCNT+1 


03B1 

CE 

00 

BB 


LDX 


♦BUFFER 

SET POINTER 

03B4 

BD 

04 

4E 


JSR 


PCRLF 


03B7 

86 

23 



LDA 

A 

♦PROMPT 

SETUP PROMPT 

03B9 

BD 

02 

09 


JSR 


OUTCH 

OUTPUT IT 

03BC 

BD 

04 

99 

EDIT3 

JSR 


INCHAR 


03BF 

27 

C9 



BEQ 


EDIT 


03C1 

A7 

00 


EDIT4 

STA 

A 

0,X 

PUT CHAR IN BUFFER 

03C3 

81 

OD 



CMP 

A 

♦CRGRET 

IS IT A C.R* 

03C5 

27 

05 



BEG 


EDIT5 


03C7 

BD 

04 

BB 


JSR 


BUFLIM 

IS BUFFER FULL? 

03CA 

20 

FO 



BRA 


EDIT3 

REPEAT 

03 CC 

CE 

00 

BB 

EDIT5 

LDX 


♦BUFFER 

RESTORE POINTER 

03CF 

DF 

44 



STX 


BUFPNT 


03D1 

7F 

00 

6C 

EDIT55 

CLR 


MSLFLG 


03D4 

BD 

04 

D2 


JSR 


FINDL 

PROCESS LINE INFO 

03D7 

4F 




CLR 

A 



03D8 

97 

75 



STA 

A 

LINFLG 

CLEAR FLAS 

03DA 

97 

8C 



STA 

A 

DRCTN 


03DC 

DF 

4A 



STX 


NEWPOS 

SAVE POINTER 

03DE 

DE 

44 



LDX 


BUFPNT 


03E0 

BD 

04 

92 


JSR 


SKIPSP 

SKIP SPACES 

03E3 

DF 

44 



STX 


BUFPNT 

SAVE POINTER 

03E5 

81 

3D 



CMP 

A 

♦ ' = 

IS IT AN '='? 

03E7 

26 

08 



BNE 


EDIT56 


03E9 

08 




INX 



BUMP POINTER 

03EA 

DF 

44 



STX 


BUFPNT 
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LOCN 

B1 

B2 

B3 






03EC 

CE 

OA 

A5 


LDX 


♦EQUALS 


03EF 

20 

44 



BRA 


EDIT85 

GO TO IT 

03F1 

BO 

06 

63 

EDIT56 

JSR 


TSTEND 

TEST END 

03F4 

26 

05 



BNE 


EDIT58 


03F6 

CE 

08 

77 


LDX 


♦PRINT 

POINT TO PRINT 

03F9 

20 

3A 



BRA 


EDIT85 


03FB 

OF 

40 


EDIT58 

STX 


TEMP 


03FD 

CE 

02 

14 


LDX 


♦TABLE 

POINT TO TABLE 

0400 

OF 

9B 


EDIT6 

STX 


TABPNT 

SAVE IT 

0402 

60 

00 



TST 


OrX 

IS IT NULL? 

0404 

27 

23 



BEG 


EDITS 


0406 

A1 

00 



CMP 

A 

OrX 

CHECK CHARACTER 

0408 

26 

OC 



BNE 


EDIT7 

ARE THEY EQUAL? 

040A 

DE 

44 



LDX 


BUFPNT 

RESTORE POINTER 

040C 

08 




INX 



BUMP IT 

040D 

A6 

00 


EDIT65 

LDA 

A 

OrX 

GET NEXT CHAR. 

040F 

OF 

44 



STX 


BUFPNT 

SAVE POINTER 

0411 

DE 

9B 



LDX 


TABPNT 


0413 

08 




INX 



BUMP THE TABLE PNTR 

0414 

20 

EA 



BRA 


EDIT6 


0416 

08 



EDIT7 

INX 



BUMP THE POINTER 

0417 

60 

00 



TST 


OrX 

IS IT NULL? 

0419 

26 

FB 



BNE 


EDIT7 


041B 

08 




INX 



BUMP POINTER 3 TIMES 

041C 

08 




INX 




041D 

08 




INX 




041E 

60 

00 



TST 


OrX 

END OF TABLE? 

0420 

27 

IF 



BEG 


ERROR 

REPORT ERROR 

0422 

09 




DEX 




0423 

OF 

9B 



STX 


TABPNT 

SAVE THE POINTER 

0425 

DE 

40 



LDX 


TEMP 


0427 

20 

E4 



BRA 


EDIT65 

REPEAT 

0429 

08 



EDIT8 

INX 


• sl-r 

BUMP THE POINTER 

042A 

EE 

00 



LDX 


OrX 

GET ADDRESS 

042C 

8C 

OA 

C8 


CPX 


♦INSERT 

IS IT INSERT? 

042F 

26 

04 



BNE 


EDIT85 


0431 

96 

7F 



LDA 

A 

INLMFL 


0433 

26 

OA 



BNE 


EDIT88 


0435 

BO 

08 

21 

EDIT85 

JSR 


TSTOVR 

LIMITS? 

0438 

26 

25 



BNE 


NOTFND 

jfj.jg p 

043A 

4F 




CLR 

A 


CLEAR FLAGS 

043B 

97 

72 



STA 

A 

OVRBEG 


043D 

97 

73 



STA 

A 

OVREND 


043F 

6E 

00 


EDIT88 

JMP 


OrX 

GO TO IT 








* ERROR ROUTINE 


0441 

CE 

04 

4C 

ERROR 

LDX 

♦ERRSTR 

POINT TO STRING 





* PRINT 

ERROR 

MESSAGE 


0444 

8D 

3D 


PREROR 

BSR 

PSTRNG 


0446 

7F 

00 

6C 


CLR 

MSLFLG 

CLEAR FLAG 

0449 

7E 

03 

8A 


JMP 

EDIT 

RETURN 


C. 
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LOCN B1 B2 B3 


044C 

3F 


ERRSTR 

FCC 

'?' 


044D 

04 



FCB 

4 





* PRINT 

CARRIAGE RETURN 

S LINE FEED 

044E 

DF 

42 

PCRLF 

STX 

XSAVE 

SAVE POINTER 

0450 

CE 

04 58 


LDX 

♦CRLFST 

POINT TO STRING 

0453 

8D 

30 


BSR 

PDATA1 


0455 

DE 

42 


LDX 

XSAVE 

RESTORE STRING 

0457 

39 



RTS 


RETURN 

0458 

OD 


CRLFST 

FCB 

$Dr«ArOrO 

r 0 r 0 » 4 


0459 OA 
045A 00 
045B 00 
045C 00 
045D 00 
045E 04 


* REPORT LINE NOT FOUND 


045F 

CE 

>0 

<r 

o 

NOTFND 

LDX 

0462 

20 

EO 


BRA 

0464 

4E 


NOFSTR 

FCC 

0465 

4F 




0466 

20 




0467 

53 




0468 

55 




0469 

43 




046A 

48 




046B 

20 




046C 

4C 




046D 

49 




046E 

4E 




046F 

45 




0470 

04 



FCB 


♦NOFSTR POINT TO STRING 
PREROR 

'NO SUCH LINE' 


* REPORT SYNTAX ERROR 


0471 CE 04 76 
0474 20 CE 


SYNERR 


LDX 

BRA 


♦SYNSTR 

PREROR 


POINT TO STRING 


0476 53 
0477 59 
0478 4E 
0479 54 
047A 41 
047B 58 
047C 20 


SYNSTR FCC 


'SYNTAX ERROR' 





TSC 6800 


LOCN B1 
047D 45 
047E 52 
047F 52 
0480 4F 
0481 52 
0482 04 


0483 8D 
0485 A6 
0487 81 
0489 27 
048B BD 
048E 08 
048F 20 


0491 08 
0492 A6 
0494 81 
0496 27 
0498 39 


0499 BD 
049C 81 
049E 26 
04A0 8C 
04A3 27 
04A5 09 
04A6 7A 
04A9 20 
04AB 81 
04AD 27 
04AF 81 
04B1 22 
04B3 81 
04B5 26 
04B7 7C 
04BA 39 


04BB 08 
04BC 8C 
04BF 26 
04C1 86 
04C3 BD 


TEXT EDITING SYSTEM 
B2 B3 


PAGE 


12 



FCB 4 


* PRINT STRING 


C9 

PSTRNG 

BSR 


00 

PDATA1 

LDA 

A 

04 


CMP 

A 

OD 


BEG 


02 09 


JSR 




INX 


F4 


BRA 



ROUTINE 


PCRLF 

OUT C.R. L.F 

0»X 

GET CHAR. 

*4 

SKIPS2 

IS IT TERM? 

OUTCH 

OUTPUT IT 
BUMP POINTER 

PDATA1 



* SKIP 


ALL SPACES 


00 

SKIPSA 
SKIPSP 

INX 

LDA 

A 

OrX 

GET A CHAR. 

20 


CMP 

A 

#' 

IS IT A SPACE? 

F9 

SKIPS2 

BEG 

RTS 


SKIPSA 

REPEAT 

RETURN 




* INPUT 

AND 

CHECK CHARACTER 

02 

06 

INCHAR 

JSR 


INCH 

GET CHAR 

08 


INCHR1 

CMP 

A 

♦BACKSP 

IS IT A BACKSPACE? 

OB 



BNE 


INCHR3 


00 

BB 


CPX 


♦BUFFER 

BUFFER BEGINNING? 

15 



BEG 


INCHR4 





DEX 



DEC THE POINTER 

00 

8E 


DEC 


CHRCNT+1 


EE 



BRA 


INCHAR 


18 


INCHR3 

CMP 

A 

♦DELCOD 

IS IT A DELETE?’ 

OB 



BEG 


INCHR4 


IF 



CMP 

A 

♦♦IF 

IS IT CONTROL? 

04 



BHI 


INCH35 


OD 



CMP 

A 

♦CRGRET 

IS IT A C.R.? 

E2 



BNE 


INCHAR 


00 

8E 

INCH35 

INC 


CHRCNT+1 

INC CHAR. COUNT 



INCHR4 

RTS 



RETURN 




* CHECK 

FOR 

BUFFER OVERFLOW 




BUFLIM 

INX 

BUMP 

THE POINTER 

01 

43 


CPX 

♦BUFFER+136 


F9 



BNE 

INCHR4 


07 


OVER 

LDA 

A #BELL LOAD 

UP BELL 

02 

09 


JSR 

OUTCH OUTPUT IT 


( 




L 
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LOCN 

B1 

B2 

B3 


04C6 

BD 

02 

06 

JSR 

04C9 

81 

08 


CMP 

04CB 

26 

F4 


BNE 

04CD 

09 



DEX 

04CE 

7A 

00 

8E 

DEC 

04D1 

39 



RTS 


INCH GET NEW CHAR. 

♦BACKSP IS IT BACKSPACE? 
OVER 

DEC THE POINTER 

CHRCNT+1 

RETURN 


* PROCESS LINE ROUTINE 


04D2 

8D 

BE 


FINDL 

BSR 

SKIPSP 

SKIP SPACES 

04D4 

81 

3D 



CMP A 

#' = 

IS IT ' = '? 

04D6 

27 

OA 



BEQ 

FINDLO 


04D8 

7C 

00 

75 


INC 

LINFLG 

SET FLAG 

04DB 

BD 

07 

3B 


JSR 

CLASS 

CLASSIFY CHAR. 

04DE 

Cl 

01 



CMP B 

#1 

IS IT A LETTER 

04E0 

23 

03 



BLS 

FINDL2 


04E2 

DE 

4A 


FINDLO 

LDX 

NEWPOS 

SET POINTER 

04E4 

39 



FINDL1 

RTS 


RETURN 

04E5 

27 

23 


FINDL2 

BEG 

FIND1 


04E7 

20 

14 



BRA 

FIND 






* TARGET ENTRY 

POINT 


04E9 

8D 

03 


FINDT 

BSR 

FINDTO 


04EB 

DF 

93 



STX 

TRGLIN 

SAVE TARGET POS. 

04ED 

39 




RTS 


RETURN 

04EE 

7F 

00 

8C 

FINDTO 

CLR 

DRCTN 


04F1 

BD 

07 

38 


JSR 

SKPCLS 


04F4 

Cl 

01 



CMP B 

#1 

IS IT A LETTER? 

04F6 

23 

03 



BLS 

FINDT2 


04F8 

7E 

04 

71 

FINDT1 

JMP 

SYNERR 

REPORT SYNTAX ERROR 

04FB 

27 

7D 


FINDT2 

BEG 

FIND62 


04FD 

7F 

00 

8C 

FIND 

CLR 

DRCTN 

CLEAR DIRECTION 

0500 

91 

B4 



CMP A 

LINO 

IS IT LINE NUMBER 

0502 

26 

2E 



BNE 

FIND2 


0504 

08 




INX 


BUMP THE POINTER 

0505 

BD 

04 

92 


JSR 

SKIPSP 


0508 

DF 

44 



STX 

BUFPNT 


050A 

BD 

07 

55 

FIND1 

JSR 

BCDCON 


050D 

DF 

40 



STX 

TEMP 

SAVE POINTER 

050F 

DE 

4A 



LDX 

NEWPOS 


0511 

96 

90 



LDA A 

NUMBER 

GET NUMBER 

0513 

A1 

00 



CMP A 

0 r X 

COMPARE IT 

0515 

26 

OA 



BNE 

FI Nil 14 


0517 

96 

91 



LDA A 

NUMBER+1 

GET NEXT NUM. 

0519 

A1 

01 



CMP A 

1 rX 

COMPARE 

051B 

26 

04 



BNE 

FIND14 


05 ID 

96 

92 



LDA A 

NUMBER+2 


05 IF 

A1 

02 



CMP A 

2?X 


0521 

24 

03 


FIND14 

BCC 

FIND16 


0523 

7A 

00 

8C 


DEC 

DRCTN 

SET DIRECTION 

0526 

DE 

40 


FIND16 

LDX 

TEMP 

RESTORE POINTER 

0528 

BD 

07 

AB 


JSR 

FNDNUM 

FIND LINE NUMBER 

052B 

27 

B7 



BEG 

FINDL1 
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LOCN 

B1 

B2 

B3 




052D 

D7 

74 



STA 

B 

052F 

7E 

07 

FO 


JMP 


0532 

BD 

06 

63 

FIND2 

JSR 


0535 

26 

OA 



BNE 


0537 

7D 

00 

76 


TST 


053A 

27 

A6 



BEQ 


053C 

DE 

4A 



LDX 


053E 

7E 

08 

OF 


JMP 


0541 

81 

21 


FIND3 

CMP 

A 

0543 

26 

08 



BNE 


0545 

08 




INX 


0546 

DF 

44 



STX 


0548 

DE 

99 



LDX 


054A 

7E 

07 

FO 


JMP 


054D 

81 

5E 


FIND4 

CMP 

A 

054F 

26 

09 



BNE 


0551 

7A 

00 

8C 


DEC 


0554 

08 




INX 


0555 

DF 

44 



STX 


0557 

DE 

97 



LDX 


0559 

39 




RTS 


055A 

81 

2B 


FIND5 

CMP 

A 

055C 

27 

07 



BEG 


055E 

81 

2D 



CMP 

A 

0560 

26 

47 



BNE 


0562 

7A 

00 

8C 


DEC 


0565 

08 



FIND6 

INX 


0566 

BD 

07 

38 


JSR 


0569 

Cl 

01 



CMP 

B 

056B 

27 

OD 



BEG 


056D 

23 

3A 



BLS 


056F 

D6 

75 



LDA 

B 

0571 

27 

85 



BEG 


0573 

BD 

07 

A3 


JSR 


0576 

DE 

4A 



LDX 


0578 

20 

1A 



BRA 


057A 

BD 

07 

55 

FIND62 

JSR 


057D 

DE 

4A 



LDX 


057F 

7D 

00 

75 


TST 


0582 

26 

08 



BNE 


0584 

BD 

08 

38 

FIND63 

JSR 


0587 

27 

IF 



BEG 


0589 

BD 

08 

2A 


JSR 


058C 

BD 

08 

38 

FIND65 

JSR 


058F 

27 

17 



BEG 


0591 

BD 

08 

2A 


JSR 


0594 

BD 

06 

C3 

FIND66 

JSR 


0597 

BD 

08 

21 


JSR 


059A 

27 

FO 



BEG 


059C 

96 

73 



LDA 

A 

059E 

26 

08 



BNE 


05AO 

BD 

08 

38 


JSR 


05A3 

26 

03 



BNE 


05A5 

7C 

00 

7F 


INC 


05A8 

39 



FIND67 

RTS 



NOCURL 

BAKONE 

TSTEND 

FIND3 


NXTFLG 

FINDLO 

CHECK FLAG 

NEWPOS 

SET POINTER 

UPONE 

UP ONE LINE 

#' ! 

FIND4 

BUFPNT 

IS IT A * ! *? 

BUMP THE POINTER 

FILEND 

SET POINTER 

BAKONE 

BACKUP ONE LINE 

FIND5 

IS IT A ■"■? 

DRCTN 

BUFPNT 

SET DIRECTION 

BUMP THE POINTER 

FILBEG 

SET POINTER TO BEGIN 
RETURN 

*' + 

FIND6 

IS IT A *+■? 

FIND7 

IS IT A •-'? 

DRCTN 

DEC DIRECTION 


BUMP THE POINTER 

SKPCLS 

SKIP SPACES 

*1 

FIND62 

FIND7 

IS IT NUMBER? 

LINFLG 

TEST FLAG 

FINDT1 


CLRNUM 


NEWPOS 

SET POINTER 

FIND66 


BCDCON 

CONVERT NUMBER 

NEWPOS 

SET POINTER 

LINFLG 

CHECK FLAG 

FIND65 


TSTNUM 

FIND67 

IS IT ZERO? 

DECNUM 

DEC NUMBER 

TSTNUM 

TEST NUMBER 

FIND67 

DECNUM 


NXTLIN 

GOTO NEXT LINE 

TSTOVR 

FIND65 

CHECK LIMITS 

OVREND 

FIND67 

TSTNUM 

FIND67 

BEGINNING? 

INLMFL 

RETURN 



C 



L 
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LOCN 

B1 

B2 

B3 





05A9 

8D 

4F 


FIND7 

BSR 

SETDEL 

SET DELIMITER 

05AB 

8D 

6D 


FIN702 

BSR 

ZONE 

SET ZONE 

05AD 

DE 

4A 



LDX 

NEWPOS 

SET POINTER 

05AF 

BD 

06 

C3 


JSR 

NXTLIN 

GO TO NEXT 

05B2 

08 



FIND71 

INX 


BUMP POINTER 3 TIMES 

05B3 

08 




INX 



05B4 

08 




INX 



05B5 

BD 

06 

5A 

FIN711 

JSR 

FIXZON 

CHECK FOR POSTZONE 

05B8 

BD 

08 

2A 

FIND72 

JSR 

DECNUM 

DEC COLUMN COUNT 

05BB 

27 

22 



BEG 

FIND75 


05BD 

C6 

OD 



LDA B 

♦CRGRET 


05BF 

El 

00 



CMP B 

OrX 

TEST FOR C.R. 

05C1 

27 

03 



BEG 

FIND73 


05C3 

08 




INX 


BUMP THE POINTER 

05C4 

20 

F2 



BRA 

FIND72 

REPEAT 

05C6 

96 

85 


FIND73 

LDA A 

CHGFLG 

CHECK IF CHANGE 

05CS 

26 

DE 



BNE 

FIND67 


05CA 

08 




INX 


BUMP THE POINTER 

05CB 

9C 

99 



CPX 

FILEND 

END OF FILE ? 

05CD 

27 

06 



BEG 

* + 08 


05CF 

09 




DEX 



05D0 

96 

85 


FIND74 

LDA A 

CHGFLG 


05D2 

26 

D4 



BNE 

FIND67 


05D4 

09 



<$> DEX 


DEC THE POINTER 

05D5 

BD 

06 

C3 


JSR 

NXTLIN 


05D8 

BD 

08 

21 


JSR 

TSTOVR 

CHECK LIMITS 

05DB 

26 

17 



BNE 

FIND77 


05DD 

20 

D3 



BRA 

FIND71 


05DF 

BD 

06 

5A 

FIND75 

JSR 

FIXZON 

FIX UP ZONE 

05E2 

BD 

06 

CD 


JSR 

STRING 

PROCESS STRING 

05E5 

7D 

00 

70 


TST 

FNDFLG 

FIND IT? 

05E8 

27 

E6 



BEG 

FIND74 


05EA 

5F 




CLR B 



05EB 

96 

85 



LDA A 

CHGFLG 


05ED 

26 

05 



BNE 

FIND77 

■ 

05EF 

BD 

07 

F6 


JSR 

BAK0N2 


05F2 

DF 

93 



STX 

TRGLIN 

SAVE TARGET POINTER 

05F4 

39 



FIND77 

RTS 


RETURN 

05F5 

86 

01 


FIND78 

LDA A 

*1 

SET FLAG 

05F7 

97 

73 



STA A 

OVREND 


05F9 

39 




RTS 


RETURN 





* SET 

UP DELIMITERS 



05FA 

97 

95 

SETDEL 

STA 

A 

DELIM 

SAVE 

DELIMITER 

05FC 

5F 



CLR 

B 




05FD 

08 



INX 



BUMP 

THE POINTER 

05FE 

DF 

4E 


STX 


STRNGB 

SAVE 

BEGINNING 

0600 

A6 

00 

SETDE2 

LDA 

A 

0»X 

GET A 

CHARACTER 

0602 

8D 

5F 


BSR 


TSTEND 



0604 

27 

08 


BEG 


SETDE4 



0606 

91 

95 


CMP 

A 

DELIM 

IS IT 

A DELIMITER? 

0608 

27 

04 


BEG 


SETDE4 



060A 

08 



INX 



BUMP 

THE POINTER 




TSC 6800 TEXT EDITING SYSTEM 


PAGE 


LOCN 

B1 

CM 

n 

B3 






060B 

5C 




INC 

B 


BUMB COUNTER 

060C 

20 

F2 



BRA 


SETDE2 

REPEAT 

060E 

DF 

50 


SETDE4 

STX 


STRNGE 

SAVE END OF STRING 

0610 

D7 

7B 



STA 

B 

STRCNT 


0612 

8D 

4F 



BSR 


TSTEND 


0614 

27 

01 



BEQ 


SETDE5 


0616 

08 




I NX 



BUMP THE POINTER 

0617 

DF 

44 


SETDE5 

STX 


BUFPNT 


061? 

3? 




RTS 



RETURN 





* SET UP ZONE 



061A 

BD 

07 

3B 

ZONE 

JSR 


CLASS 

GO CLASSIFY CHAR. 

061D 

7F 

00 

6D 


CLR 


PSTZFL 

CLEAR FLAG 

0620 

Cl 

01 



CMP 

B 

*1 

IS IT A NUMBER 

0622 

26 

17 



BNE 


Z0NE3 


0624 

BD 

07 

55 


JSR 


BCDCON 

CONVERT NUMBER 

0627 

8D 

IB 



BSR 


CMPZN1 

CHECK Z0NE1 

062? 

25 

10 



BCS 


Z0NE3 


062B 

8D 

22 



BSR 


CMPZN2 

CHECK Z0NE2 

062D 

22 

OC 



BHI 


Z0NE3 


062F 

7C 

00 

6D 


INC 


PSTZFL 

SET FLAG 

0632 

96 

?0 



LDA 

A 

NUMBER 

PUT NUM IN ZONE BUF 

0634 

97 

62 



STA 

A 

ZONBUF 


0636 

96 

?1 



LDA 

A 

NUMBER+1 


0638 

97 

63 



STA 

A 

ZONBUF+1 


063A 

3? 




RTS 



RETURN 

063B 

96 

5E 


Z0NE3 

LDA 

A 

Z0NE1 

PUT Z0NE1 IN BUF. 

063D 

97 

62 



STA 

A 

ZONBUF 


063F 

96 

5F 



LDA 

A 

Z0NE1+1 


0641 

97 

63 



STA 

A 

ZONBUF+1 


0643 

3? 




RTS 



RETURN 





* COMPARE Z0NE1 TO NUMBER 

0644 

D6 

?0 

CMPZN1 

LDA B 

NUMBER 

GET NUMBER 

0646 

D1 

5E 


CMP B 

Z0NE1 

CHECK 

0648 

26 

04 


BNE 

CMPZ14 


064A 

D6 

?1 


LDA B 

NUMBER+1 


064C 

D1 

5F 


CMP B 

Z0NE1+1 


064E 

3? 


CMPZ14 

RTS 


RETURN 





* COMPARE Z0NE2 TO NUMBER 

064F 

D6 

?0 

CMPZN2 

LDA B 

NUMBER 

GET NUMBER 

0651 

D1 

60 


CMP B 

Z0NE2 

CHECK 

0653 

26 

04 


BNE 

CMPZ24 


0655 

D6 

?1 


LDA B 

NUMBER+1 


0657 

D1 

61 


CMP B 

Z0NE2+1 


065? 

3? 


CMPZ24 

RTS 


RETURN 
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TSC 6800 TEXT EDITING SYSTEM 


LOCN B1 B2 B3 

* PUT CORRECT ZONE IN NUMBER 


065A 

96 

62 

FIXZON LDA 

A 

ZONBUF 

GET ZONE 

065C 

97 

90 

STA 

A 

NUMBER 

PUT IN NUMBER 

065E 

96 

63 

LDA 

A 

ZONBUF+1 


0660 

97 

91 

STA 

A 

NUMBER+1 


0662 

39 


RTS 



RETURN 





* TEST 

TERMINATOR <C.R, 

OR EOL) 

0663 

81 

OD 

TSTEND 

CMP A 

♦CRGRET 

IS IT C.R.? 

0665 

27 

02 


BEQ 

TSTEN2 


0667 

91 

B5 


CMP A 

EOL 


0669 

39 


TSTEN2 

RTS 


RETURN 





* BUMP 

NUMBER 

BY lr .If 

OR ,01 

066A 

86 

01 

BMPNUM 

LDA 

A 

*1 


066C 

D6 

7C 


LDA 

B 

INCAMT 

CHECK AMOUNT 

066E 

27 

OC 


BEQ 


INCNUM 


0670 

2A 

02 


BPL 


BMPNU4 


0672 

86 

10 


LDA 

A 

#*10 

SET BUMP 

0674 

9B 

92 

BMPNU4 

ADD 

A 

NUMBER+2 

ADD IN 

0676 

19 



DAA 



ADJUST IT 

0677 

97 

92 


STA 

A 

NUMBER+2 

SAVE 

0679 

25 

01 


BCS 


INCNUM 


067B 

39 



RTS 



RETURN 





* INCREMENT 

NUMBER BY ONE 


067C 

86 

01 

INCNUM LDA 

A 

#1 

SET UP 

ONE 

067E 

5F 


CLR 

B 




067F 

9B 

91 

ADD 

A 

NUMBER+1 

ADD IN 

ONE 

0681 

19 


DAA 



ADJUST 

IT 

0682 

97 

91 

STA 

A 

NUMBER+1 

SAVE IT 

0684 

17 


TBA 





0685 

99 

90 

ADC 

A 

NUMBER 



0687 

19 


DAA 



ADJUST 

NUMBER 

0688 

97 

90 

STA 

A 

NUMBER 



068A 

39 


RTS 



RETURN 






* PUT NUMBER 

AT X 


068B 

96 

90 

PUTNUM LDA 

A 

NUMBER 

GET NUMBER 

068D 

A7 

00 

STA 

A 

OrX 

SAVE IT 

068F 

96 

91 

LDA 

A 

NUMBER+1 


0691 

A7 

01 

STA 

A 

lrX 


0693 

96 

92 

LDA 

A 

NUMBER+2 


0695 

A7 

02 

STA 

A 

2r X 


0697 

39 


RTS 



RETURN 
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LOCN B1 B2 B3 

* GET NUMBER FROM X 


0698 

A6 

00 

GETNUM LDA 

A 

OrX 

GET NUMBER 

069A 

97 

90 

STA 

A 

NUMBER 

SAVE IT 

069C 

A6 

01 

LDA 

A 

1 r X 


069E 

97 

91 

STA 

A 

NUMBER+1 


06A0 

A6 

02 

LDA 

A 

2f X 


06A2 

97 

92 

STA 

A 

NUMBER+2 


06A4 

39 


RTS 



RETURN 






* RENUMBER FILE 


06A5 

BD 

09 

A4 

RENUMB 

JSR 

TFORCR 


06A8 

DE 

97 



LDX 

FILBEG 

SET POINTER 

06AA 

7F 

00 

7C 

RENUM1 

CLR 

INCAMT 


06AD 

BD 

07 

A3 


JSR 

CLRNUM 

CLEAR NUMBER 

06B0 

8D 

B8 


RENUM2 

BSR 

BMPNUM 

BUMP NUMBER 

06B2 

8D 

D7 



BSR 

PUTNUM 

SAVE IT 

06B4 

BD 

08 

OF 


JSR 

UPONE 


06B7 

96 

73 



LDA A 

OVREND 

HIT LIMIT? 

06B9 

27 

F5 



BEG 

RENUM2 

REPEAT 

06BB 

96 

83 



LDA A 

CHKFLG 

CHECK FLAG 

06BD 

27 

01 



BEG 

RENUM4 


06BF 

39 




RTS 


RETURN 

06C0 

7E 

08 

A2 

RENUM4 

JMP 

PRINT6 

RETURN 






* GO TO 

NEXT 

LINE 



06C3 

96 

8C 


NXTLIN 

LDA A 

DRCTN 

CHECK 

: DIRECTION 

06C5 

2B 

03 



BMI 

NXTLI2 



06C7 

7E 

08 

OF 


JMP 

UPONE 

MOVE 

UP ONE 

06CA 

7E 

07 

FO 

NXTLI2 

JMP 

BAKONE 

MOVE 

BACK ONE 






* PROCESS STRING ROUTINE 


06CD 

7F 

00 

70 

STRING 

CLR 


FNDFLG 

CLEAR FLAG 

06D0 

D6 

7B 



LDA 

B 

STRCNT 


06D2 

26 

06 



BNE 


STRIN1 


06D4 

7C 

00 

70 


INC 


FNDFLG 

FOUND NULL STRING 

06D7 

DF 

SC 



STX 


LASTNO 

SAVE POINTER 

06D9 

39 




RTS 



RETURN 

06DA 

C6 

OD 


STRIN1 

LDA 

B 

♦CRGRET 


06DC 

DF 

4C 



STX 


SRCHPT 

SAVE POINTER 

06DE 

DF 

5C 



STX 


LASTNO 

SAVE POINTER 

06E0 

DE 

4E 



LDX 


STRNGB 

POINT TO BEGIN 

06E2 

DF 

56 


STRIN2 

STX 


STRPNT 

SAVE POINTER 

06E4 

A6 

00 



LDA 

A 

OrX 

GET A CHARACTER 

06E 6 

DE 

4C 



LDX 


SRCHPT 

RESTORE POINTER 

06E8 

El 

00 


STRIN3 

CMP 

B 

OrX 

C. RET« ? 

06EA 

27 

ID 



BEG 


STRIN4 


06EC 

A1 

00 



CMP 

A 

OrX 

COMP. CHAR. 





TSC 6800 TEXT EDITING SYSTEM 


PAGE 


C 


LOCN 

B1 

B2 

B3 





06EE 

27 

ID 



BEG 

STRIN5 


06F0 

7D 

00 

6D 


TST 

PSTZFL 

POST ZONE? 

06F3 

26 

14 



BNE 

STRIN4 


06F5 

7D 

00 

70 


TST 

FNDFLG 

FOUND? 

06F8 

26 

O'? 

Am. *. 



BNE 

STRIN6 


06FA 

08 




INX 


BUMP THE POINTER 

06FB 

DF 

5C 



STX 

LASTNO 

SAVE IT 

06FD 

36 




PSH A 


SAVE ACC. 

06FE 

37 




PSH B 



06FF 

BD 

06 

7C 


JSR 

INCNUM 

INC NUMBER 

0702 

BD 

06 

4F 


JSR 

CMPZN2 

CHECK Z0NE2 

0705 

33 




PUL B 


RESTORE ACC 

0706 

32 




PUL A 



0707 

23 

DF 



BLS 

STRIN3 


0709 

7F 

00 

70 

STRIN4 

CLR 

FNDFLG 

CLEAR FLAG 

070C 

39 




RTS 


RETURN 

070D 

08 



STRIN5 

INX 



070E 

DF 

4C 



STX 

SRCHPT 

SAVE IT 

0710 

7C 

00 

70 


INC 

FNDFLG 

SET FLAG 

0713 

DE 

56 



LDX 

STRPNT 

POINT TO STRING 

0715 

08 




INX 


BUMP THE POINTER 

0716 

9C 

50 



CPX 

STRNGE 

END OF STRING? 

0718 

27 

OF 



BEG 

STRIN7 


071A 

20 

C6 



BRA 

STRIN2 


071C 

DE 

5C 


STRIN6 

LDX 

LASTNO 

RESTORE POINTER 

071E 

08 




INX 



071F 

BD 

06 

7C 


JSR 

INCNUM 

BUMP NUMBER 

0722 

BD 

06 

4F 


JSR 

CMPZN2 

CHECK ZONE 

0725 

23 

A6 



BLS 

STRING 


0727 

20 

EO 



BRA 

STRIN4 


0729 

D6 

7B 


STRIN7 

LDA B 

STRCNT 

GET COUNT 

072B 

27 

08 


STRIN8 

BEG 

STRIN9 


072D 

37 




PSH B 


SAVE 

072E 

BD 

06 

7C 


JSR 

INCNUM 

FIX COL 

0731 

33 




PUL B 



0732 

5A 




DEC B 


DEC COUNT 

0733 

26 

F6 



BNE 

STRIN8 


0735 

DE 

5C 


STRIN9 

LDX 

LASTNO 


0737 

39 




RTS 


RETURN 


0738 BD 04 92 


# SKIP AND CLASSIFY 
SKPCLS JSR SKIPSP 


* CLASSIFY CHARACTER 


c. 


073B 

DF 

44 

CLASS 

STX 


BUFPNT 

SAVE POINTER 

073D 

A6 

00 


LDA 

A 

0 r X 

GET CHARACTER 

073F 

5F 



CLR 

B 



0740 

81 

2F 


CMP 

A 

**2F 

CHECK IF NUMBER 

0742 

23 

10 


BLS 


CLASS4 


0744 

81 

39 


CMP 

A 

*'9 


0746 

22 

02 


BHI 


CLASS2 



19 







TSC 6800 TEXT EDITING SYSTEM 


PAGE 20 


LOCN 

B1 

B2 B3 






0748 

5C 



INC 

B 


SHOW NUMBER 

0749 

39 



RTS 



RETURN 

074A 

81 

40 

CLASS2 

CMP 

A 

#♦40 

CHECK IF LETTER 

074C 

23 

06 


BLS 


CLASS4 


074E 

81 

5A 


CMP 

A 

*'Z 


0750 

22 

02 


BHI 


CLASS4 


0752 

C6 

02 


LDA 

B 

#2 

SHOW LETTER 

0754 

39 


CLASS4 

RTS 



RETURN 





* CONVERT ASCII TO BCD 


0755 

8D 

4C 

BCDCON 

BSR 


CLRNUM 

CLEAR NUMBER 

0757 

8D 

E2 

BCDC01 

BSR 


CLASS 

CLASSIFY CHAR* 

0759 

Cl 

01 


CMP 

B 

#1 

IS IT A NUMBER? 

075B 

27 

07 


BEQ 


BCDC02 

- 

075D 

81 

2E 


CMP 

A 

#'. 

IS IT A •*•? 

075F 

27 

17 


BEQ 


BCDC05 


0761 

DF 

44 

BCDC15 

STX 


BUFPNT 

SAVE POINTER 

0763 

39 



RTS 



RETURN 

0764 

08 


BCDC02 

I NX 



BUMP THE POINTER 

0765 

84 

OF 


AND 

A 

♦♦OF 

MASK ASCII 

0767 

C6 

04 


LDA 

B 

#4 

SET COUNTER 

0769 

78 

00 91 

BCDC04 

ASL 


NUMBER+1 


076C 

79 

00 90 


ROL 


NUMBER 

SHIFT EVERYTHING LEFT 

076F 

5A 



DEC 

B 


DEC THE COUNTER 

0770 

26 

F 7 


BNE 


BCDC04 


0772 

9B 

91 


ADD 

A 

NUMBER+1 

ADD IN NUMBER 

0774 

97 

91 


STA 

A 

NUMBER+1 


0776 

20 

DF 


BRA 


BCDC01 


0778 

C6 

02 

BCDC05 

LDA 

B 

#2 

SET COUNTER 

077A 

D7 

89 


STA 

B 

DECCNT 


077C 

08 


BCDC06 

I NX 



BUMP THE POINTER 

077D 

8D 

BC 


BSR 


CLASS 

CLASSIFY CHAR* 

077F 

Cl 

01 


CMP 

B 

#1 

IS IT NUMBER? 

0781 

27 

04 


BEQ 


BCDC65 


0783 

4F 



CLR 

A 



0784 

09 



DEX 



DEC THE POINTER 

0785 

20 

02 


BRA 


BCDC67 


0787 

84 

OF 

BCDC65 

AND 

A 

♦ ♦OF 

MASK ASCII 

0789 

C6 

04 

BCDC67 

LDA 

B 

♦4 

SET COUNTER 

078B 

78 

00 92 

BCDC07 

ASL 


NUMBER+2 


078E 

5A 



DEC 

B 



078F 

26 

FA 


BNE 


BCDC07 


0791 

9B 

92 


ADD 

A 

NUMBER+2 


0793 

97 

92 


STA 

A 

NUMBER+2 


0795 

7A 

00 89 


DEC 


DECCNT 

DEC COUNTER 

0798 

26 

E2 


BNE 


BCDC06 


079A 

08 


BCDC08 

INX 



BUMP THE POINTER 

079B 

8D 

9E 


BSR 


CLASS 

CLASSIFY CHAR* 

079D 

Cl 

01 


CMP 

B 

#1 

IS IT NUMBER? 

079F 

27 

F9 


BEQ 


BCDC08 


07A1 

20 

BE 


BRA 


BCDC15 





TSC <6800 TEXT EDITING SYSTEM 


PAGE 


LOCN B1 B2 B3 


* CLEAR NUMBER ROUTINE 


07A3 

4F 



CLRNUM 

CLR 

A 


CLEAR ACC. 

07A4 

97 

90 



STA 

A 

NUMBER 


07AA 

97 

91 



STA 

A 

NUMBER+1 

CLEAR ALL OUT 

07A8 

97 

92 



STA 

A 

NUMBER+2 


07AA 

39 




RTS 



RETURN 





* FIND 

NUMBERED LINE 


07AB 

DA 

90 


FNDNUM 

LDA 

B 

NUMBER 

GET DIGIT 

07AD 

9A 

91 



LDA 

A 

NUMBER+1 


07AF 

DE 

97 



LDX 


FILBEG 

SET POINTER TO B 

07B1 

9C 

99 


FNDNU1 

CPX 


FILEND 

END OF FILE? 

07B3 

2A 

05 



BNE 


FNDNU4 


07B5 

7C 

00 

73 


INC 


OVREND 

SET ERROR FLAG 

07B8 

5C 



FNDNU2 

INC 

B 



07B9 

39 




RTS 



RETURN 

07BA 

El 

00 


FNDNU4 

CMP 

B 

OrX 

COMPARE DIGIT 

07BC 

22 

1C 



BHI 


FNDNU5 


07BE 

2A 

F8 



BNE 


FNDNU2 


07C0 

A1 

01 



CMP 

A 

lrX 

COMP NEXT DIGIT 

07C2 

22 

1A 



BHI 


FNDNU5 


07C4 

2A 

F2 



BNE 


FNDNU2 


07C6 

DA 

92 



LDA 

B 

NUMBER+2 

NEXT DIGIT 

07C8 

El 

02 



CMP 

B 

2»X 

CHECK DIGIT 

07CA 

22 

OE 



BHI 


FNDNU5 


07CC 

2A 

EA 



BNE 


FNDNU2 


07CE 

7D 

00 

84 


TST 


SNGLIN 


07D1 

2A 

05 



BNE 


FNDN45 


07D3 

7D 

00 

83 


TST 


CHKFLG 


07D6 

2A 

EO 



BNE 


FNDNU2 


07D8 

5F 



FNDN45 

CLR 

B 



07D9 

39 




RTS 



RETURN 

07DA 

7D 

00 

83 

FNDNU5 

TST 


CHKFLG 


07DD 

2A 

F9 



BNE 


FNDN45 


07DF 

8D 

05 



BSR 


FNDCRT 

FIND C.R. 

07E1 

DA 

90 



LDA 

B 

NUMBER 

RESTORE NUM 

07E3 

08 




INX 



BUMP THE POINTER 

07E4 

20 

CB 



BRA 


FNDNU1 

REPEAT 


* FIND THE NEXT CARRIAGE RETURN 


07EA 

3A 


FNDCRT 

PSH 

A 


SAUE ACC. 

07E7 

8A 

OD 


LDA 

A 

♦CRGRET 


07E9 

08 


FNDCR2 

INX 



BUMP THE POINTER 

07EA 

A1 

00 


CMP 

A 

OrX 

CHECK FOR C.R. 

07EC 

2A 

FB 


BNE 


FNDCR2 


07EE 

32 



PUL 

A 


RESTORE ACC. 

07EF 

39 



RTS 



RETURN 


21 


* MOVE BACK ONE LINE 




TSC 6800 TEXT EDITING SYSTEM 


PAGE 22 


LOCN 

B1 

B2 

B3 






07F0 

9C 

97 


BAKONE 

CPX 


FILBEG 


07F2 

27 

17 



BEQ 


BAK0N6 


07F4 

C6 

01 



LDA 

B 

*1 

SET COUNTER 

07F6 

09 



BAK0N2 

DEX 



DEC THE POINTER 

07F7 

9C 

97 



CPX 


FILBEG 

BEGINNING? 

07F9 

27 

OD 



BEQ 


BAK0N5 


07FB 

A6 

00 



LDA 

A 

OfX 

GET A CHAR. 

07FD 

81 

OD 



CMP 

A 

♦CRGRET 

IS IT C.R.? 

07FF 

26 

F5 



BNE 


BAK0N2 


0801 

5A 




DEC 

B 


DEC THE COUNTER 

0802 

2A 

F2 



BPL 


BAK0N2 


0804 

08 




INX 



BUMP THE POINTER 

0805 

C6 

01 



LDA 

B 

*1 


0807 

39 



BAK0N4 

RTS 



RETURN 

0808 

5D 



BAK0N5 

TST 

B 



0809 

27 

FC 



BEG 


BAK0N4 


080B 

7C 

00 

CM 

BAK0N6 

INC 


OVRBEG 

SET ERROR FLAG 

080E 

39 




RTS 



RETURN 





* MOVE 

UP ONE 

LINE 


080F 

9C 

99 

UPONE 

CPX 


FILEND 

END OF FILE? 

0811 

26 

06 


BNE 


UP0NE2 


0813 

C6 

01 

UP0NE1 

LDA 

B 

*1 

SET ERROR FLAG 

0815 

D7 

73 


STA 

B 

OVREND 


0817 

20 

D7 


BRA 


BAKONE 


0819 

8D 

CB 

UP0NE2 

BSR 


FNDCRT 

FIND NEXT C.R. 

081B 

08 



INX 



BUMP THE POINTER 

081C 

9C 

99 


CPX 


FILEND 

END? 

081E 

27 

F3 


BEQ 


UP0NE1 


0820 

39 



RTS 



RETURN 






* TEST 

FOR i 

OVER END LIMITS 

0821 

0824 

7D 

26 

00 

03 

72 

TSTOVR 

TST 

BNE 

OVRBEG 

TST0V2 

BEGINNING? 

0826 

0829 

7D 

39 

00 

73 

TST0V2 

TST 

RTS 

OVREND 

END? 

RETURN 





* DECREMENT 

NUMBER BY ONE 


082A 

86 

99 

DECNUM LDA 

A 

#*99 



082C 

16 


TAB 



SET UP 

*9999 

082D 

9B 

91 

ADD 

A 

NUMBER+1 

ADD IN 


082F 

19 


DAA 



ADJUST 

IT 

0830 

97 

91 

STA 

A 

NUMBER+1 

SAVE 


0832 

17 


TBA 





0833 

99 

90 

ADC 

A 

NUMBER 



0835 

19 


DAA 





0836 

97 

90 

STA 

A 

NUMBER 








TSC 6800 TEXT EDITING SYSTEM 


PAGE 


LOCN B1 B2 B3 


0838 96 90 
083A 26 02 
083C 96 91 
083E 39 


* TEST NUMBER FOR ZERO 

TSTNUM LDA A NUMBER 
BNE TSTNU2 
LDA A NUMBER+1 
TSTNU2 RTS 


CHECK IF ZERO 


RETURN 


C 


* VERIFY LINE ROUTINE 


NEWPOS 

FNDCRT 

SPCPT2 


083F 

DF 

4A 


VERLIN 

STX 

0841 

BD 

07 

E6 


JSR 

0844 

DF 

5A 



STX 

0846 

4F 




CLR 

0847 

97 

8D 



STA 

0849 

09 



VERLI1 

DEX 

084A 

09 




DEX 

084B 

09 




DEX 

084C 

09 



VERL12 

DEX 

084D 

E6 

00 



LDA 

084F 

Cl 

OD 



CMP 

0851 

27 

09 



BEG 

0853 

E6 

03 



LDA 

0855 

Cl 

20 



CMP 

0857 

26 

03 



BNE 

0859 

4C 




INC 

085A 

20 

FO 



BRA 

085C 

97 

8E 


VERL15 

STA 

085E 

08 




INX 

085F 

08 




INX 

0860 

08 




INX 

0861 

08 


; 


INX 

0862 

DF 

58 



STX 

0864 

BD 

OD 

43 


JSR 

0867 

DE 

4A 



LDX 

0869 

96 

6B 



LDA 

086B 

27 

05 



BEG 

086D 

8D 

40 



BSR 

086F 

BD 

07 

FO 


JSR 

0872 

DF 

48 


VERLI2 

STX 

0874 

DF 

4A 



STX 

0876 

39 




RTS 


A 

A 


CHRCNT 


OfX 

♦CRGRET 
VERL15 
3 r X 

♦ ' 

VERL15 

VERL12 

CHRCNT+1 


SPCPT1 

DELCHR 

NEWPOS 

VERFLG 

VERLI2 

OUTLIN 

BAKONE 

CURPOS 

NEWPOS 


SAVE POINTER- 
SAVE POSITION 

DEC POINTER 


DEC THE POINTER- 
CHECK CHAR 
IS IT C.R♦? 

CHECK 

IS IT A SPACE? 


SAVE COUNT 

BUMP POINTER- 

DELETE SPACES 

CHECK FLAG 

OUTPUT LINE 
BACKUP ONE LINE 
SAVE POINTER 

RETURN 


* PRINT ROUTINE 


c 


0877 8D 2F 
0879 DE 44 
087B BD 04 E9 
087E DE 4A 
0880 7C 00 8A 
0883 DF 48 
0885 9C 93 
0887 26 03 


PRINT 


PRINTO 


PRINTI 


BSR 

LDX 

JSR 

LDX 

INC 

STX 

CPX 

BNE 


TSTEMP 

BUFPNT 

FINDT 

NEWPOS 

PRNFLG 

CURPOS 

TRGLIN 

PRIN12 


SET POINTER- 
FIND TARGET 
SET POINTER 
SET FLAG 
SAVE IT 
TARGET LINE? 


23 




TSC 6000 

TEXT EDITING 

SYSTEM 



LOCN 

B1 

B2 

B3 





088? 

7F 

00 

8A 


CLR 

PRNFLG 

CLEAR FLAG 

088C 

8D 

21 


PRIN12 

BSR 

OUTLIN 


088E 

96 

8A 



LDA A 

PRNFLG 

CHECK FLAG 

0890 

27 

OB 



BEQ 

PRINT5 


0892 

96 

8C 



LDA A 

DRCTN 

CHECK DIRECTION 

0894 

27 

EF 



BEQ 

PRINT1 


0896 

09 




DEX 


DEC POINTER TWICE 

0897 

0? 




DEX 



0898 

BD 

07 

FO 


JSR 

BAKONE 

MOVE BACK ONE 

089B 

20 

E8 



BRA 

PRINT1 


089D 

BD 

07 

FO 

PRINT5 

JSR 

BAKONE 

MOVE BACK ONE 

08A0 

DF 

48 



STX 

CURPOS 

SAVE POINTER 

08A2 

BD 

09 

B5 

PRINT6 

JSR 

TSTMSL 


08A5 

7E 

03 

8A 


JMP 

EDIT 

RETURN 





* TEST 

IF FILE 

EMPTY 

08A8 

DE 

97 

TSTEMP 

LDX 

FILBEG 

08AA 

9C 

99 


CPX 

FILEND 

08AC 

27 

F4 


BEQ 

PRINT6 

08AE 

39 



RTS 



PAGE 


2 4 




* OUTPUT ONE LINE 


08AF 

BD 

04 

4E 

OUTLIN 

JSR 


PCRLF 


08B2 

96 

6A 



LDA 

A 

NUMFLG 


08B4 

26 

06 



BNE 


0UTL15 


08B6 

8D 

IS 



BSR 


OUTSPC 

OUTPUT SPACE 

08B8 

08 




I NX 



BUMP THE POINTER 

08B? 

08 




I NX 




08BA 

20 

03 



BRA 


0UTLI2 


08BC 

8D 

16 


0UTL15 

BSR 


OUTBCD 

OUTPUT LINE NO. 

08BE 

09 




DEX 




08BF 

08 



0UTLI2 

I NX 



it 

08C0 

A6 

00 



LDA 

A 

0 r X 

GET A CHAR. 

08C2 

81 

OD 



CMP 

A 

♦CRGRET 

IS IT C.R.? 

08C4 

27 

05 



BEQ 


0UTL.I4 


08C6 

BD 

02 

0? 


JSR 


OUTCH 

OUTPUT IT 

08C? 

20 

F4 



BRA 


0UTLI2 

REPEAT 

08CB 

08 



0UTLI4 

I NX 



BUMP THE POINTER 

08CC 

3? 




RTS 



RETURN 





* OUTPUT A SPACE 


08CD 

86 

20 

OUTSPC LDA A #' 

LOAD UP SPACE 

08CF 

BD 

02 0? 

JSR OUTCH 

OUTPUT IT 

08D2 

OC 


CLC 


08D3 

3? 


RTS 

RETURN 


C 



c. 


* OUTPUT A BCD NUMBER 




TSC 6800 TEXT EDITING SYSTEM 


PAGE 25 



LOCN 

B1 

B2 

B3 





08D4 

96 

6A 


OUTBCD 

LDA A 

NUMFLG 

CHECK FLAG 

08D6 

27 

2E 



BEQ 

0UTB75 


08D8 

8D 

F3 



BSR 

OUTSPC 

OUTPUT A SPACE 

08DA 

C6 

02 



LDA B 

#2 

SET COUNTER 

08DC 

OC 




CLC 



08DD 

A6 

00 


0UTBC2 

LDA A 

0»X 

GET CHAR. 

08DF 

85 

FO 



BIT A 

♦ ♦FO 

MASK 

08E1 

25 

02 



BCS 

0UTBC3 


08E3 

27 

06 



BEQ 

0UTB35 


08E5 

BD 

09 

13 

0UTBC3 

JSR 

OUTHL 

OUTPUT DIGIT 

08E8 

OD 




SEC 


SET FLAG 

08E9 

20 

02 



BRA 

0UTBC4 


08EB 

8D 

EO 


0UTB35 

BSR 

OUTSPC 


08ED 

A6 

00 


0UTBC4 

LDA A 

0»X 

GET DIGIT 

08EF 

C5 

FE 



BIT B 

♦ ♦FE 

CHECK IF DONE 

08F1 

27 

06 



BEQ 

0UTBC6 


08F3 

85 

OF 



BIT A 

♦ ♦OF 

MASK 

08F5 

25 

02 



BCS 

0UTBC6 


08F7 

27 

05 



BEQ 

0UTB65 


08F9 

8D 

1C 


0UTBC6 

BSR 

OUTHR 

OUTPUT DIGIT 

08FB 

OD 




SEC 



08FC 

20 

02 



BRA 

0UTBC7 


08FE 

8D 

CD 


0UTB65 

BSR 

OUTSPC 


0900 

08 



0UTBC7 

INX 


BUMP THE POINTER 

0901 

5A 




DEC B 


DEC THE COUNTER 

0902 

27 

07 



BEQ 

0UTBC8 


0904 

2A 

D7 



BPL 

0UTBC2 


0906 

86 

3D 


0UTB75 

LDA A 

♦ ' = 


0908 

7E 

02 

09 

0UTB78 

JMP 

OUTCH 

OUTPUT A •=• 

090B 

86 

2E 


0UTBC8 

LDA A 

♦ ' . 

OUTPUT A *.* 

090D 

BD 

02 

09 


JSR 

OUTCH 


0910 

OD 




SEC 



0911 

20 

CA 



BRA 

0UTBC2 

GO FINISH 





* OUTPUT DIGITS ROUTINE 


0913 

44 



OUTHL 

LSR A 


SHIFT LEFT FOUR TIMES 

0914 

44 




LSR A 



0915 

44 




LSR A 



0916 

44 




LSR A 



0917 

84 

OF 


OUTHR 

AND A 

♦ ♦OF 

MASK 

0919 

8B 

30 



ADD A 

♦ ♦30 

MAKE ASCII 

091B 

20 

EB 



BRA 

0UTB78 






♦ SET NUMBERS 

ON OR OFF 


09 ID 

8D 

18 

NUMSET BSR 


ONOFF 

GET ON OFF 

091F 

27 

07 

BEQ 


NUMSE2 


0921 

2B 

OA 

BMI 


NUMSE4 


0923 

7F 

00 6A 

CLR 


NUMFLG 

CLEAR FLAG 

0926 

20 

08 

BRA 


NUMSE6 


0928 

43 


NUMSE2 • COM 

A 


COM. FLAG 

0929 

97 

6A 

STA 

A 

NUMFLG 

SAVE IN FLi 




TSC 6800 

TEXT EDITING 

SYSTEM 




LOCN B1 
092B 20 
092D 73 

B2 B3 
03 

00 6A 

NUMSE4 

BRA 

COM 

NUMSE6 

NUMFLG 

COM 

FLAG 

0930 DE 
0932 DF 

4A 

48 

NUMSE6 

LDX 

STX 

NEWPOS 

CURPOS 

SET 

POINTER 

0934 7E 

08 A2 


JMP 

PRINT6 








* CHECK 

FOR 

ON OR OFF 



0937 

DE 

44 


ONOFF 

LDX 

BUFPNT 

SET 

POINTER 

0939 

BD 

04 

CM 

Ch 


JSR 

SKIPSP 

SKIP 

SPACES 

093C 

DF 

44 



STX 

BUFPNT 

SAVE 

POINTER 

093E 

DF 

40 



STX 

TEMP 



0940 

CE 

09 

46 


LDX 

♦ONOFTB 

POINT TO TABLE 

0943 

7E 

04 

00 


JMP 

EDIT6 







* TABLE FOR 

ON OFF 

0946 

4F 


ONOFTB FCC 

'ON' 

0947 

4E 




0948 

00 


FCB 

0 

0949 

09 

56 

FDB 

ON 

094B 

4F 


FCC 

'OFF' 

094C 

46 




094D 

46 




094E 

00 


FCB 

0 

094F 

09 

58 

FDB 

OFF 

0951 

OD 


FCB 

CRGRET 

0952 

00 


FCB 

0 

0953 

09 

5B 

FDB 

TOGGLE 

0955 

00 


FCB 

0 





* ON OFF ROUTINES 


0956 

4F 


ON CLR 

A 



0957 

39 


RTS 



RETURN 

0958 

86 

01 

OFF LDA 

A 

*i 

SET FLAG 

095A 

39 


RTS 



RETURN 

095B 

DE 

44 

TOGGLE LDX 


BUFPNT 


095D 

09 


DEX 




095E 

DF 

44 

STX 


BUFPNT 

FIX 

0960 

86 

FF 

LDA 

A 

♦♦FF 

SET FLAG 

0962 

39 


RTS 



RETURN 





* SET 

VERIFY 

FLAG 



0963 

8D 

D2 

VERSET 

BSR 

ONOFF 

CHECK 

ON OFF 

0965 

27 

07 


BEQ 

VERSE2 



0967 

2B 

OA 


BMI 

VERSE4 



0969 

7F 

00 6B 


CLR 

VERFLG 

CLEAR 

FLAG 

096C 

20 

08 


BRA 

VERSE6 



096E 

43 


VERSE2 

COM A 
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LOCN 

B1 

B2 

B3 




096F 

97 

6B 



STA A 

VERFLG 

0971 

20 

03 



BRA 

VERSE6 

0973 

73 

00 

6B 

VERSE4 

COM 

VERFLG 

0976 

20 

B8 


VERSE6 

BRA 

NUMSE6 


COM. FLAG 


# CURSOR CONTROL COMMAND *X* 


0978 

8D 

2A 


XCNTRL 

BSR 

TFORCR 



097A 

CE 

0? 

82 


LDX 

♦CNRSTR 

POINT 

TO STRING 

097D 

BD 

04 

85 


JSR 

PDATA1 

OUTPUT 

IT 

0980 

20 

AE 



BRA 

NUMSE6 



0982 

00 



CNRSTR 

FCB 

o 

o 

'W 

o 

o 

OrO 


0983 

00 








0984 

00 








0985 

00 








0986 

00 








0987 

00 








0988 

04 




FCB 

4 

THIS 4 

MUST REMAIN 


* EXIT ROUTINE 


C 


098? 8D 19 
098B 7E EO DO 


EXIT 


BSR 

JMP 


TFORCR 

MIKBUG 


EXIT 


* SET POINTER TO BOTTOM 


098E 

8D 

14 


BOTTOM 

BSR 

TFORCR 



0990 

BD 

08 

A8 

BOTTOl 

JSR 

TSTEMP 



0993 

DE 

99 



LDX 

FILEND 



0995 

BD 

07 

FO 


JSR 

BAKONE 

MOVE 

BACK ONE 

0998 

DF 

48 


B0TT02 

STX 

CURPOS 

SAVE- 

•POINTER 

099A 

7E 

08 

A2 


JMP 

PRINT6 




* SET POINTER TO TOP 


C 


099D 

8D 

05 


TOP 

BSR 


TFORCR 


099F 

BD 

08 

A8 


JSR 


TSTEMP 


09A2 

20 

F4 



BRA 


B0TT02 






♦ TEST 

OR C. 

R. 



09A4 

DE 

44 


TFORCR 

LDX 


BUFPNT 

SET POINTER 

09A6 

BD 

04 

92 


JSR 


SKIPSP 


09A? 

81 

OD 



CMP 

A 

♦CRGRET 

IS IT C.R.? 

09AB 

27 

04 



BEQ 


TF0RC2 


09AD 

91 

B5 



CMP 

A 

EOL 


09AF 

26 

01 



BNE 


TF0RC3 


09B1 

39 



TF0RC2 

RTS 



RETURN 

09B2 

7E 

04 

71 

TF0RC3 

JMP 


SYNERR 





TSC 6800 TEXT EDITING SYSTEM 


PAGE 


LOCN B1 B2 B3 





* TEST 

FOR MULTIPLE STATEMENTS PER LINE 

09B5 

DE 

44 

TSTMSL 

LDX 


BUFPNT 

GET POINTER 

09B7 

86 

OD 


LDA 

A 

♦CRGRET 

GET C.R. 

09B9 

D6 

B5 


LDA 

B 

EOL 

GET EOL CHAR* 

09BB 

A1 

00 

TSTMS2 

CMP 

A 

OrX 

CHECK CHARACTER 

09BD 

27 

OC 


BEQ 


TSTMS5 


09BF 

El 

00 


CMP 

B 

OrX 


09C1 

27 

03 


BEQ 


TSTMS4 


09C3 

08 



INX 



BUMP POINTER ONE 

09C4 

20 

F5 


BRA 


TSTMS2 

REPEAT 

09C6 

08 


TSTMS4 

INX 




09C7 

DF 

44 


STX 


BUFPNT 

SAVE BUFFER POINT 

09C9 

97 

6C 


STA 

A 

MSLFLG 

SET FLAG 

09CB 

39 


TSTMS5 

RTS 



RETURN 




* PROCCESS THE 

NEXT COMMAND 

09CC 

7C 

00 76 

NEXT 

INC 


NXTFLG 







* FIND 

COMMAND 



09CF 

BD 

08 

A8 

CFIND 

JSR 


TSTEMP 


09D2 

7C 

00 

75 


INC 


LINFLG 

SET FLAG 

09D5 

8D 

71 



BSR 


OCCURR 

CHECK FOR OCCURRENCE 

09D7 

DE 

93 



LDX 


TRGLIN 

SET POINTER 

09D9 

BD 

08 

21 


JSR 


TSTOVR 

CHECK LIMITS 

09DC 

27 

2A 



BEG 


CFIND2 


09DE 

D6 

76 



LDA 

B 

NXTFLG 

CHECK FLAG 

09E0 

26 

43 



BNE 


CFIND5 


09E2 

20 

04 



BRA 


CFIN12 


09E4 

96 

77 


CFIND1 

LDA 

A 

ALLFLG 

CHECK IF ALL 

09E6 

26 

40 



BNE 


CFIND6 


09E8 

CE 

OA 

31 

CFIN12 

LDX 


♦CFNTST 

POINT TO STRING 

09EB 

BD 

04 

83 


JSR 


PSTRNG 

OUTPUT IT 

09EE 

DE 

SE 



LDX 


Z0NE1 

CHECK ZONES 

09F0 

8C 

00 

01 


CPX 


*♦0001 


09F3 

26 

07 



BNE 


CFIN13 


09F5 

DE 

60 



LDX 


Z0NE2 

CHECK ZONE 2 

09F7 

8C 

01 

36 


CPX 


*♦0136 


09FA 

27 

06 



BEQ 


CFIN14 


09FC 

CE 

OA 

3B 

CFIN13 

LDX 


♦ZOKSTR 

POINT TO STRING 

09FF 

BD 

04 

85 


JSR 


PDATA1 

OUTPUT IT 

OA02 

7F 

00 

6C 

CFIN14 

CLR 


MSLFLG 


OAOS 

7E 

03 

8A 

CFIN15 

JMP 


EDIT 

RETURN 

0A08 

DE 

93 


CFIND2 

LDX 


TRGLIN 

POINT TO TARGET 

OAOA 

9C 

4A 



CPX 


NEWPOS 

SAME ONE? 

OAOC 

27 

1A 



BEQ 


CFIND6 


OAOE 

DF 

4A 



STX 


NEWPOS 

SAVE IT 

0A10 

D6 

78 


CFIND3 

LDA 

B 

OCRFLG 

CHECK FLAG 

0A12 

27 

11 



BEQ 


CFIND5 





TSC 6800 TEXT EDITING SYSTEM 


PAGE 29 


■ 4 # 


LOCN 

B1 

B2 

B3 







0A14 

D6 

76 



LDA 

B 

NXTFLG 

CHECK 

FLAG 

0A16 

26 

03 



BNE 


CFIND4 



0A18 

BD 

08 

3F 


JSR 


VERLIN 

VERIFY 

LINE 

0A1B 

BD 

OA 

83 

CFIND4 

JSR 


NXTOCR 

CHECK 

NEXT OCCUR 

0A1E 

BD 

08 

21 


JSR 


TSTOVR 

CHECK 

LIMITS 

0A21 

27 

E5 



BEQ 


CFIND2 



0A23 

20 

06 



BRA 


CFIND9 



0A25 

BD 

08 

3F 

CFIND5 

JSR 


VERLIN 

VERIFY 

LINE 

0A28 

7E 

08 

A2 

CFIND6 

JMP 


PRINT6 



0A2B 

D6 

76 


CFIND9 

LDA 

B 

NXTFLG 

CHECK 

FLAG 

0A2D 

26 

F6 



BNE 


CFIND5 



0A2F 

20 

B3 



BRA 


CFIND1 




0A31 

4E 

CFNTST 

FCC 

'NOT FOUND' 

0A32 

4F 




0A33 

54 




0A34 

20 




0A35 

46 




0A36 

4F 




0A37 

55 




0A38 

4E 




0A39 

44 




0A3A 

04 


FCB 

4 

0A3B 

2E 

ZOKSTR 

FCC 

'..♦ZONES OK?' 

0A3C 

2E 




0A3D 

2E 




0A3E 

5A 




0A3F 

4F 




0A40 

4E 




0A41 

45 




0A42 

53 




0A43 

20 




0A44 

4F 




0A45 

4B 




0A46 

3F 




0A47 

04 


FCB 

4 






* CHECK 

FOR 

OCCURRENCE 



0A48 

DE 

44 


OCCURR 

LDX 


BUFPNT 

SET POINTER 

0A4A 

DF 

46 



STX 


BUFSAV 

SAVE 

IT 

0A4C 

7F 

00 

77 


CLR 


ALLFLG 



0A4F 

7F 

00 

78 


CLR 


OCRFLG 



0A52 

BD 

04 

E9 


JSR 


FINDT 

FIND 

TARGET 

0A55 

DE 

44 



LDX 


BUFPNT 

RESTORE POINTER 

0A57 

BD 

07 

38 


JSR 


SKPCLS 



0A5A 

Cl 

01 



CMP 

B 

*1 

IS IT 

NUMBER? 

0A5C 

27 

09 



BEG 


0CCUR3 



0A5E 

81 

2A 



CMP 

A 

#'* 

IS IT 

A ’*•? 

0A60 

26 

17 



BNE 


OCCURS 



0A62 

7C 

00 

77 


INC 


ALLFLG 

SET FOR ALL OCCUR 

0A65 

20 

OF 



BRA 


0CCUR4 
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LOCN 

B1 

B2 

B3 





0A67 

DD 

07 

55 

0CCUR3 

JSR 

BCDCON 

GET NUMBER 

0A6A 

BD 

08 

38 


JSR 

TSTNUM 

ZERO? 

0A6D 

27 

OA 



BEG 

0CCUR5 


0A6F 

BD 

08 

2A 


JSR 

DECNUM 

DEC NUMBER 

0A72 

27 

05 



BEQ 

0CCUR5 


0A74 

8D 

04 



BSR 

SAVOCR 

SAVE OCCURRENCE 

0A76 

7C 

00 

78 

0CCUR4 

INC 

OCRFLG 

SET FLAG 

0A79 

39 



OCCURS 

RTS 


RETURN 


* SAVE PRESENT OCCURRENCE COUNT 


0A7A 

96 

90 

SAVOCR LDA 

A 

NUMBER 

GET NUMBER 

0A7C 

97 

6E 

STA 

A 

OCRCNT 

SAVE IT 

0A7E 

96 

91 

LDA 

A 

NUMBER+1 


0A80 

97 

6F 

STA 

A 

OCRCNT+1 


0A82 

39 


RTS 



RETURN 


* PROCCESS NEXT OCCURRENCE 


0A83 

96 

77 


NXTOCR 

LDA A 

ALLFLG 

CHECK FOR ALL 

0A85 

26 

OF 



BNE 

NXT0C1 


0A87 

96 

6E 


NXTOCO 

LDA A 

OCRCNT 

GET COUNT 

0A89 

97 

90 



STA A 

NUMBER 

PUT IN NUMBER 

0A8B 

96 

6F 



LDA A 

OCRCNT+1 


0A8D 

97 

91 



STA A 

NUMBER+1 


0A8F 

BD 

08 

2A 


JSR 

DECNUM 

DEC THE COUNT 

0A92 

27 

OB 



BEG 

NXT0C2 


0A94 

8D 

E4 



BSR 

SAVOCR 

SAVE COUNT 

0A96 

96 

85 


NXT0C1 

LDA A 

CHGFLG 


0A98 

26 

OA 



BNE 

NXT0C3 


0A9A 

DE 

46 



LDX 

BUFSAV 

RESTORE POINTER 

0A9C 

7E 

04 

E9 


JMP 

FINDT 

FIND TARGET AND RET 

0A9F 

7F 

00 

78 

NXT0C2 

CLR 

OCRFLG 

CLEAR FLAG 

0AA2 

20 

F2 



BRA 

NXT0C1 


0AA4 

39 



NXT0C3 

RTS 


RETURN 





* EQUALS COMMAND 


0AA5 

BD 

08 

CD 

<E 

EQUALS 

JSR 

TSTEMP 


0AA8 

DE 

44 



LDX 

BUFPNT 

SET POINTER 

OAAA 

7F 

00 

7D 


CLR 

BMPFLG 


OAAD 

7C 

00 

84 


INC 

SNGLIN 


OABO 

7C 

00 

7E 


INC 

EQUFLG 


0AB3 

96 

74 



LDA A 

NOCURL 

CURRENT LINE? 

0AB5 

26 

20 



BNE 

INSER1 

V ifS Jt ■ A 

0AB7 

DE 

4A 



LDX 

NEWPOS 


0AB9 

DF 

93 



STX 

TRGLIN 

FIX TARGET 

OABB 

BD 

06 

98 


JSR 

GETNUM 

GET NUMBER 

OABE 

7C 

00 

81 


INC 

REPFLG 

SET FLAG 

0AC1 

96 

8E 



LDA A 

CHRCNT+1 


0AC3 

97 

82 



STA A 

TMPCHR 


0AC5 

7E 

OC 

BB 


JMP 

DELETO 





TSC 6800 TEXT EDITING SYSTEM 


LOCN B1 B2 B3 

* INSERT ROUTINE 


0AC8 

DE 

44 


INSERT 

LDX 

OACA 

7F 

00 

7D 


CLR 

OACD 

A6 

00 



LDA 

OACF 

81 

OD 


. ■ 

CMP 

0AD1 

27 

17 



BEG 

0AD3 

7C 

00 

84 


INC 

0AD6 

08 




INX 

0AD7 

DF 

44 


INSER1 

STX 

0AD9 

CE 

00 

BB 


LDX 

OADC 

96 

8E 



LDA 

OADE 

9C 

44 


INSER2 

CPX 

OAEO 

27 

04 



BEG 

0AE2 

4A 




DEC 

0AE3 

08 




INX 

0AE4 

20 

F8 



BRA 

0AE6 

8B 

03 


INSER3 

ADD 

0AE8 

97 

8E 



STA 

OAEA 

DE 

4A 


INSER4 

LDX 

OAEC 

DF 

48 



STX 

OAEE 

96 

7E 



LDA 

OAFO 

27 

06 



BEG 

0AF2 

96 

72 



LDA 

0AF4 

27 

14 



BEG 

0AF6 

20 

25 



BRA 

0AF8 

BD 

06 

98 

INSE42 

JSR 

OAFB 

96 

7F 



LDA 

OAFD 

27 

OB 



BEG 

OAFF 

9C 

99 



CPX 

0B01 

27 

07 



BEQ 

0B03 

5F 




CLR 

0B04 

D7 

90 



STA 

0B06 

D7 

91 



STA 

0B08 

20 

13 



BRA 

OBOA 

BD 

08 

OF 

INSE43 

JSR 

OBOD 

E6 

02 



LDA 

OBOF 

96 

73 



LDA 

OBI 1 

27 

OA 



BEQ 

0B13 

5F 



INSE45 

CLR 

0B14 

DE 

99 



LDX 

0B16 

9C 

97 



CPX 

0B18 

26 

03 



BNE 

OBI A 

BD 

07 

A3 


JSR 


* CALCULATE 


0B1D 

DF 

58 

INSER5 STX 

0B1F 

96 

7E 

LDA 

0B21 

26 

2C 

BNE 

0B23 

96 

73 

LDA 

0B25 

27 

05 

BEG 

0B27 

7F 

00 92 

CLR 



BUFPNT 

SET POINTER 


BMPFLG 

CLEAR FLAG 

A 

Or X 

GET CHAR. 

A 

♦CRGRET 

INSER4 



SNGLIN 

SET FLAG 

BUMP THE POINTER 


BUFPNT 

♦BUFFER 

SAVE IT 

A 

CHRCNT+1 

GET COUNT 


BUFPNT 

INSER3 

CHECK POINT 

A 

INSER2 

DEC THE COUNTER 
BUMP THE POINTER 

A 

♦3 

FIX COUNT 

A 

CHRCNT+1 



NEWPOS 

SET POINTER 


CURPOS 

SAVE POINTER 

A 

EGUFLG 

INSE42 


A 

OVRBEG 

INSE43 

INSER5 

GETNUM 

CHECK LIMIT 

A 

INLMFL 

INSE43 

CHECK FLAG 


FILEND 

INSE43 

EMPTY? 

B 


CLEAR ACC. 

B 

NUMBER 

SAVE IN NUMBER 

B 

NUMBER+1 



INSER5 



UPONE 

UP ONE LINE 

B 

2 rX 

GET DIGIT 

A 

B 

OVREND 

INSER5 

FILEND 

FILBEG 

INSER5 

LIMIT? 


CLRNUM 

CLEAR OUT NUMBER 

LINE NUMBER 

INCREMENT 


SPCPT1 

SAVE POINTER 

A 

EGUFLG 

INSE60 


A 

OVREND 

INSE51 

NUMBER+2 

LIMIT? 
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LOCN 

B1 

B2 

B3 

0B2A 

20 

1C 


0B2C 

96 

7D 


0B2E 

26 

18 


0B30 

96 

92 


0B32 

D7 

82 


0B34 

9A 

82 


0B36 

27 

OD 


0B38 

96 

7F 


0B3A 

27 

03 


0B3C 

7F 

00 

92 

0B3F 

86 

01 


0B41 

97 

7C 


0B43 

20 

03 


0B45 

7A 

00 

7C 

0B48 

BD 

06 

6A 

0B4B 

96 

84 


0B4D 

27 

04 



INSE51 


INSE52 


INSE55 

INSER6 


BRA 


INSER6 

LDA 

A 

BMPFLG 

BNE 


INSER6 

LDA 

A 

NUMBER+2 

STA 

B 

TMPCHR 

ORA 

A 

TMPCHR 

BEQ 


INSE55 

LDA 

A 

INLMFL 

BEQ 


INSE52 

CLR 


NUMBER+2 

LDA 

A 

*1 

STA 

A 

INCAMT 

BRA 


INSER6 

DEC 


INCAMT 

JSR 


BMPNUM 

LDA 

A 

SNGLIN 

BEQ 


INSE61 


GET NUMBER 


CHECK FLAG 

SET AMOUNT 

BUMP NUMBER 
CHECK IF SINGLE IN 


* ENTER BUFFERED INPUT 


MODE 


0B4F 

DE 

44 


INSE60 

LDX 

0B51 

20 

2D 



BRA 

0B53 

7F 

00 

7F 

INSE61 

CLR 

0B56 

BD 

04 

4E 


JSR 

0B59 

CE 

00 

90 


LDX 

0B5C 

BD 

08 

D4 


JSR 

0B5F 

7F 

00 

8D 


CLR 

0B62 

86 

03 



LDA 

0B64 

97 

8E 



STA 

OB 66 

97 

7D 



STA 

0B68 

CE 

00 

BB 


LDX 

0B6B 

BD 

04 

99 

INSE62 

JSR 

0B6E 

27 

E3 



BEQ 

0B70 

81 

OD 



CMP 

0B72 

27 

07 



BEQ 

0B74 

A7 

00 



STA 

OB 76 

BD 

04 

BB 

• ** -V. „ . 

JSR 

0B79 

20 

FO 



BRA 

0B7B 

A7 

00 


INSER7 

STA 

0B7D 

CE 

00 

BB 


LDX 

0B80 

DF 

44 


INSE71 

STX 

0B82 

A6 

00 



LDA 

0B84 

91 

B4 



CMP 

0B86 

26 

40 



BNE 

0B88 

96 

8E 



LDA 

0B8A 

80 

03 



SUB 

0B8C 

97 

8E 



STA 

0B8E 

08 




I NX 



BUFPNT 

INSE71 

INLMFL 

PCRLF 

♦NUMBER 

POINT TO NUMBER 


OUTBCD 

CHRCNT 

OUTPUT IT 

A 

♦3 

SET COUNTER 

A 

CHRCNT+1 


A 

BMPFLG 

SET FLAG 


♦BUFFER 

SET POINTER 


INCHAR 

GET A CHARACTER 


INSE61 


A 

♦CRGRET 

IS IT C*R*? 


INSER7 


A 

Or X 



BUFLIM 

CHECK LIMIT 


INSE62 

REPEAT 

A 

OrX 

♦BUFFER 

SET POINTER 


BUFPNT 

SAME IT 

A 

OfX 

GET CHAR* 

A 

LINO 

INSE72 

ESCAPE? 

A 

CHRCNT+1 


A 

♦3 

FIX COUNT 

A 

CHRCNT+1 

BUMP THE POINTER 


C 



* CHECK IF RENUMBERING NECESSARY 


0B8F 

0B91 

DF 

DE 

40 

4A 


INS710 STX 
LDX 

TEMP 

NEWPOS 

SAVE POINTER 

0B93 

BD 

08 

OF 

JSR 

UPONE 

UP ONE LINE 

0B96 

7D 

00 

73 

TST 

OVREND 

LIMIT? 


C 
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PAGE 





LOCN 

B1 

B2 

B3 






0B99 

26 

1A 



BNE 


INS711 


0B9B 

7C 

00 

83 


INC 


CHKFLG 

SET FLAG 

0B9E 

D6 

90 



LDA 

B 

NUMBER 

GET NUMBER 

OBAO 

96 

91 



LDA 

A 

NUMBER+1 


0BA2 

BD 

07 

BA 


JSR 


FNDNU4 

CHECK NUMBER 

0BA5 

26 

OE 



BNE 


INS711 


0BA7 

4F 




CLR 

A 



0BA8 

97 

7C 



STA 

A 

INCAMT 

SET INC AMOUNT 

OBAA 

97 

92 



STA 

A 

NUMBER+2 


OBAC 

BD 

06 

BO 


JSR 


RENUM2 

RENUMBER FILE 

OBAF 

CE 

OB 

F2 


LDX 


♦RENSTR 

POINT TO STRING 

0BB2 

BD 

04 

83 


JSR 


PSTRNG 

OUTPUT IT 

0BB5 

DE 

40 


INS711 

LDX 


TEMP 

RESTORE POINTER 

0BB7 

7D 

00 

84 


TST 


SNGLIN 


OBBA 

27 

06 



BEG 


INS712 


OBBC 

DE 

4A 



LDX 


NEWPOS 

FIX POINTER 

OBBE 

DF 

48 



STX 


CURPOS 


OBCO 

20 

03 



BRA 


INS713 


0BC2 

7C 

00 

6C 

INS712 

INC 


MSLFLG 

SET FLAG 

0BC5 

7E 

03 

8A 

INS713 

JMP 


EDIT 






* ACTUAL LINE 

INSERT 


0BC8 

8D 

3E 


INSE72 

BSR 


MAKSPC 

MAKE SOME SPACE 

OBCA 

DE 

40 



LDX 


TEMP 

RESTORE POINTER 

OBCC 

DF 

4A 



STX 


NEWPOS 


OBCE 

BD 

06 

8B 


JSR 


PUTNUM 

PUT NUMBER 

0BD1 

08 




INX 



BUMP 3 TIMES 

0BD2 

08 




INX 




0BD3 

08 




INX 




0BD4 

DF 

40 



STX 


TEMP 

SAVE POINTER 

0BD6 

DE 

44 


INSE75 

LDX 


BUFPNT 


0BD8 

A6 

00 



LDA 

A 

OrX 

GET CHAR* 

OBDA 

08 




INX 



BUMP THE POINTER 

OBDB 

DF 

44 


'4 4 . 411,1 

STX 


BUFPNT 

SAVE IT 

OBDD 

DE 

40 



LDX 


TEMP 


OBDF 

A7 

00 



STA 

A 

OrX 

PUT CHAR* 

OfeEl 

08 




INX 



BUMP 

0BE2 

DF 

40 



STX 


TEMP 

SAVE 

0BE4 

81 

OD 



CMP 

A 

♦CRGRET 


0BE6 

26 

EE 



BNE 


INSE75 

REPEAT 

0BE8 

BD 

12 

85 


JSR 


EXPLIN 

EXPAND TABS 

OBEB 

96 

84 



LDA 

A 

SNGLIN 


OBED 

26 

AO 



BNE 


INS710 


OBEF 

7E 

OA 

EA 


JMP 


INSER4 



0BF2 

53 

RENSTR FCC 

'SOME LINES RENUMBERED' 

0BF3 

4F 



0BF4 

4D 



0BF5 

45 



0BF6 

20 



0BF7 

4C 



0BF8 

49 



0BF9 

4E 




33 




TSC 6800 TEXT EDITING SYSTEM 


LOCN B1 B2 B3 
OBFA 45 
OBFB 53 
OBFC 20 
OBFD 52 
OBFE 45 
OBFF 4E 
OCOO 55 
0C01 4D 
0C02 42 
0C03 45 
0C04 52 
0C05 45 
0C06 44 


0C07 

04 




FCB 

4 






* make 

ROOM FOR INSERT 


0C08 

7F 

00 

89 

MAKSPC 

CLR 

DECCNT 

CLEAR COUNT 

OCOB 

DE 

58 



LDX 

SPCPT1 

SET POINTER 

OCOD 

DF 

40 



STX 

TEMP 

SAVE 

OCOF 

9C 

99 



CPX 

FILEND 

END OF FILET 

0C11 

26 

03 



BNE 

MAKSP1 


0C13 

7C 

00 

89 


INC 

DECCNT 


0C16 

DE 

99 


MAKSP1 

LDX 

FILEND 

SET POINTER 

0C18 

DF 

58 



STX 

SPCPT1 

SAVE 

0C1A 

D6 

8D 



LDA B 

CHRCNT 


0C1C 

96 

8E 



LDA A 

CHRCNT+1 


0C1E 

26 

03 



BNE 

MAKS21 


0C20 

5D 



MAKS18 

TST B 



0C21 

27 

37 


MAKSP2 

BEQ 

MAKSP4 


0C23 

BC 

02 

12 

MAKS21 

CPX 

MEMEND 

END OF MEMORY? 

0C2 6 

27 

26 



BEQ 

MAKSP3 


0C28 

08 




INX 


BUMP THE POINTER 

0C29 

7D 

00 

8C 


TST 

DRCTN 

WHICH DIRECTION? 

0C2C 

26 

04 



BNE 

MAKS22 


0C2E 

DF 

42 



STX 

XSAVE 

SAVE POINTER 

0C30 

20 

OC 



BRA 

MAK222 


0C32 

7D 

00 

8B 

MAKS22 

TST 

CPYDRC 


0C35 

27 

OE 



BEQ 

MAKS23 


0C37 

DF 

42 



STX 

XSAVE 

SAVE THE POINTER 

0C39 

DE 

4A 



LDX 

NEWPOS 

GET POSITION 

0C3B 

08 




INX 


BUMP IT 

0C3C 

DF 

4A 



STX 

NEUPOS 

SAVE IT 

0C3E 

DE 

93 


MAK222 

LDX 

TRGLIN 

GET TARGET 

' 0C40 

08 




INX 


BUMP IT 

0C41 

DF 

93 



STX 

TRGLIN 


0C43 

DE 

42 



LDX 

XSAVE 

RESTORE POINTER 

0C45 

4D 



MAKS23 

TST A 


TEST THE ACC. 

0C46 

26 

01 



BNE 

MAKS24 


0C48 

5A 




DEC B 


DEC THE COUNTER 

0C49 

4A 



MAKS24 

DEC A 



0C4A 

26 

D7 



BNE 

MAKS21 


0C4C 

20 

D2 



BRA 

MAKS18 

REPEAT 

0C4E 

CE 

OC 

77 

MAKSP3 

LDX 

♦NORMST 

POINT TO STRING 
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C 


LOCN 

B1 

B2 

B3 






0C51 

BD 

04 

83 


JSR 


PSTRNG 

OUTPUT IT 

0C54 

7F 

00 

6C 


CLR 


MSLFLG 


0C57 

7E 

03 

8A 


JMP 


EDIT 

RETURN 

0C5A 

DF 

99 


MAKSP4 

STX 


FILEND 

SAVE POINTER 

0C5C 

DF 

5A 



STX 


SPCPT2 

SAVE POINTER 

0C5E 

96 

89 



LDA 

A 

DECCNT 

CHECK 

0C60 

26 

14 



BNE 


MAKSP6 


0C62 

DF 

5A 


MAKSP5 

STX 


SPCPT2 

SAVE POINTER 

0C64 

DE 

58 


MAKS55 

LDX 


SPCPT1 


0C66 

9C 

40 



CPX 


TEMP 

DONE? 

0C68 

27 

OC 



BEG 


MAKSP6 


0C6A 

09 




DEX 



DEC THE POINTER 

0C6B 

A6 

00 



LDA 

A 

0»X 

GET CHAR* 

0C6D 

DF 

58 



STX 


SPCPT1 

SAVE POINTER 

0C6F 

DE 

5A 



LDX 


SPCPT2 


0C71 

09 




DEX 



DEC THE POINTER 

0C72 

A7 

00 



STA 

A 

OfX 

PUT THE CHAR. 

0C74 

20 

EC 



BRA 


MAKSP5 

REPEAT 

0C76 

39 



MAKSP6 

RTS 



RETURN 

0C77 

4E 



NORMST 

FCC 


'NOT ENOUGH ROOM' 

0C78 

4F 








0C79 

54 








0C7A 

20 








0C7B 

45 








0C7C 

4E 








0C7D 

4F 








0C7E 

55 








0C7F 

47 








0C80 

48 








0C81 

20 








0C82 

52 








0C83 

4F 








0C84 

4F 








0C85 

4D 








0C86 

04 




FCB 


4 



* REPLACE LINES ROUTINE 

0C87 7C 00 81 REPLAC INC REPFLG SET FLAG 


C 


* DELETE LINES ROUTINE 


0C8A 

DE 

44 


DELETE 

LDX 

BUFPNT 

SET POINTER 

0C8C 

BD 

04 

E9 


JSR 

FINDT 

FIND TARGET 

0C8F 

BD 

08 

21 


JSR 

TSTOVR 

LIMITS? 

0C92 

27 

27 



BEG 

DELETO 


0C94 

CE 

OD 

7F 

DELE02 

LDX 

♦NTRCHS 

POINT TO STRING 

0C97 

BD 

04 

83 


JSR 

PSTRNG 

OUTPUT IT 

0C9A 

CE 

00 

BB 


LDX 

♦BUFFER 

POINT TO BUFFER 

0C9D 

BD 

04 

99 

DELE04 

JSR 

INCHAR 

GET A CHARACTER 

OCAO 

27 

F2 



BEG 

DELE02 





TSC 6800 


LOCN B1 
0CA2 A7 
0CA4 08 
0CA5 81 
0CA7 26 
0CA9 CE 
OCAC BD 
OCAF 81 
0CB1 27 
0CB3 CE 
0CB6 BD 
0CB9 20 
OCBB DE 
OCBD 96 
OCBF 27 
0CC1 BD 
0CC4 96 
0CC6 27 
0CC8 DE 
OCCA DF 
OCCC DE 
OCCE DF 
OCDO DF 
0CD2 DE 
0CD4 20 
0CD6 DF 
0CD8 DF 
OCDA DE 
OCDC BD 
OCDF 96 
0CE1 27 
0CE3 DE 
0CE5 DF 
0CE7 4F 
0CE8 5F 
0CE9 9C 
OCEB 27 
OCED 4C 
OCEE 26 
OCFO 5C 
0CF1 09 
0CF2 20 
0CF4 97 
0CF6 D7 
0CF8 8D 
OCFA 96 
OCFC 27 
OCFE DE 
ODOO BD 
0D03 96 
0D05 26 
0D07 96 
0D09 27 
ODOB BD 
ODOE DF 
0D10 7E 
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B2 

B3 






00 



STA 

A 

0»X 

SAVE IT 




INX 




OD 



CMP 

A 

♦CRGRET 

C«R*? 

F4 



BNE 


DELE04 

REPEAT 

00 

BB 


LDX 


♦BUFFER 


04 

92 


JSR 


SKIPSP 

SKIP SPACES 

59 



CMP 

A 

♦ 'Y 

WAS IT 'Y'ES? 

08 



BEQ 


DELETO 


OD 

A3 


LDX 


♦NLDSTR 

POINT TO STRING 

04 

83 

• 

JSR 


PSTRNG 


60 



BRA 


DELET5 

RETURN 

4A 


DELETO 

LDX 


NEUPOS 

SET POINTER 

8C 



LDA 

A 

DRCTN 

CHECK DIRECTION 

15 



BEG 


DELET1 


08 

OF 


JSR 


UPONE 

MOVE UP ONE 

73 



LDA 

A 

OVREND 

LIMIT? 

02 



BEG 


DELE15 


99 



LDX 


FILEND 


5A 


DELE15 

STX 


SPCPT2 


93 



LDX 


TRGLIN 

GET TARGET 

48 



STX 


CURPOS 

MAKE CURRENT 

58 



STX 


SPCPT1 


5A 



LDX 


SPCPT2 

GET POINTER 

11 



BRA 


DELE25 


58 


DELET1 

STX 


SPCPT1 

SAVE 

48 



STX 


CURPOS 


93 



LDX 


TRGLIN 

POINT TO TARGET 

08 

OF 


JSR 


UPONE 

MOVE UP ONE 

73 



LDA 

A 

OVREND 

LIMIT? 

02 



BEG 


DELET2 


99 



LDX 


FILEND 

POINT TO END 

5A 


DELET2 

STX 


SPCPT2 

SAVE POINTER 



DELE25 

CLR 

A 






CLR 

B 



58 


DELET3 

CPX 


SPCPT1 


07 



BEG 


DELET4 





INC 

A 



01 



BNE 


DELE35 





INC 

B 


BUMP THE COUNTER 



DELE35 

DEX 




F5 



BRA 


DELET3 


8E 


DELET4 

STA 

A 

CHRCNT+1 

SAVE COUNT 

8D 



STA 

B 

CHRCNT 


49 



BSR 


DELCHR 

DELETE CHARACTERS 

81 



LDA 

A 

REPFLG 

REPLACE? 

ID 



BEQ 


DELET5 


48 



LDX 


CURPOS 

SET POINTER 

07 

FO 


JSR 


BAKONE 

BACKUP ONE LINE 

7E 



LDA 

A 

EGUFLG 


2C 



BNE 


DELET7 


72 



LDA 

A 

OVRBEG 

CHECK LIMIT 

08 



BEG 


DELE45 


07 

A3 


JSR 


CLRNUM 

CLEAR NUMBER 

4A 



STX 


NEUPOS 

SAVE NEW POSITION 

OB 

ID 


JMP 


INSER5 




( 






C 






TSC 6800 TEXT EDITING SYSTEM 


PAGE 


LOCN 

B1 

B2 

B3 




0D13 

DF 

4A 


DELE45 

STX 


0D15 

7F 

00 

7D 


CLR 


0D18 

7E 

OA 

EA 


JMP 


0D1B 

DE 

48 


DELET5 

LDX 


0D1D 

9C 

99 



CPX 


0D1F 

26 

OD 



BNE 


0D21 

BD 

07 

FO 


JSR 


0D24 

DF 

40 



STX 


0D26 

CE 

OD 

B4 


LDX 


0D29 

BD 

04 

83 


JSR 


0D2C 

DE 

40 



LDX 


0D2E 

DF 

48 


DELET6 

STX 


0D30 

7E 

08 

A2 


JMP 


0D33 

DF 

4A 


DELET7 

STX 


0D35 

96 

82 



LDA 

A 

0D37 

97 

8E 



STA 

A 

0D39 

4F 




CLR 

A 

0D3A 

97 

7D 



STA 

A 

0D3C 

97 

8D 



STA 

A 

0D3E 

DE 

44 



LDX 


0D40 

7E 

OA 

D7 


JMP 



NEWPOS 

SAVE 

BMPFLG 


INSER4 

GO TO INSERT 

CURPOS 

CHECK POSITION 

FILEND 

END? 

DELET6 


BAKONE 

MOVE IT BACK 

TEMP 

SAVE POINTER 

♦BFRSTR 

POINT TO STRING 

PSTRNG 

OUTPUT IT 

TEMP 

RESTORE 

CURPOS 


PRINT6 


NEWPOS 

SAVE POINTER 

TMPCHR 

GET CHAR COUNT 

CHRCNT+1 


BMPFLG 

CLEAR FLAG 

CHRCNT 


BUFPNT 

SET POINTER 

INSER1 

GO INSERT IT 


* DELETE CHARACTER BLOCK 


0D43 

DE 

5A 

DELCHR 

LDX 

0D45 

9C 

58 


CPX 

0D47 

27 

35 


BEQ 

0D49 

9C 

99 


CPX 

0D4B 

27 

OE 


BEQ 

0D4D 

A6 

00 


LDA A 

0D4F 

08 



INX 

0D50 

DF 

5A 


STX 

0D52 

DE 

58 


LDX 

0D54 

A7 

00 


STA A 

0D56 

08 



INX 

0D57 

DF 

58 


STX 

0D59 

20 

E8 


BRA 

0D5B 

D6 

8D 

DELCH2 

LDA B 

0D5D 

96 

8E 


LDA A 

0D5F 

26 

03 


BNE 

0D61 

5D 


DELC21 

TST B 

0D62 

27 

18 

DELCH3 

BEQ 

0D64 

09 


DELC31 

DEX 

0D65 

7D 

00 8C 


TST 

0D68 

26 

09 


BNE 

0D6A 

DF 

42 


STX 

0D6C 

DE 

93 


LDX 

0D6E 

09 



DEX 

0D6F 

DF 

93 


STX 

0D71 

DE 

42 


LDX 

0D73 

4D 


DELC32 

TST A 

0D74 

26 

01 


BNE 

0D76 

5A 



DEC B 

0D77 

4A 


DELC34 

DEC A 


SPCPT2 

SET POINTER 

SPCPT1 

EQUAL? 

DELCH5 

FILEND 

END OF FILE? 

DELCH2 

0»X 

GET A CHAR* 

BUMP THE POINTER 

SPCPT2 

SPCPT1 

SAVE 

OrX 

PUT CHAR. 

SPCPT1 

SAVE POINTER 

DELCHR 

REPEAT 

CHRCNT 

GET COUNT 

CHRCNT+1 

DELC31 

CHECK COUNT 

DELCH4 

DEC THE POINTER 

DRCTN 

DELC32 

XSAVE 

WHICH DIRECTION? 

TRGLIN 

GET TARGET 

DEC IT 

TRGLIN 

PUT IT BACK 

XSAVE 

RESTORE POINTER 
TEST COUNT 

DELC34 

DEC THE COUNTER 


37 




TSC 6800 TEXT EDITING SYSTEM 


PAGE 38 


LOCN 

B1 

B2 B3 



0D78 

26 

EA 

BNE 

DELC31 

0D7A 

20 

E5 

BRA 

DELC21 

0D7C 

DF 

99 DELCH4 

STX 

FILEND SET NEW END 

0D7E 

39 

DELCH5 

RTS 

RETURN 

0D7F 

54 

NTRCHS 

FCC 

'TARGET NOT REACHED!' 

0D80 

41 




0D81 

52 




0D82 

47 




0D83 

45 




0D84 

54 




0D85 

20 




0D86 

4E 




0D87 

4F 




0D88 

54 




0D89 

20 




0D8A 

52 




0D8B 

45 




0D8C 

41 




0D8D 

43 




0D8E 

48 




0D8F 

45 




0D90 

44 




0D91 

21 




0D92 

OD 


FCB 

tD'tArOrOrOrO 

0D93 

OA 




0D94 

00 




0D95 

00 




0D9A 

00 




0D97 

00 




0D98 

59 


FCC 

'YOU SURE? ' 

0D99 

4F 




0D9A 

55 



1 - 

0D9B 

20 




0D9C 

53 

}?• . 3 f h X 0 ^ 3 


- i 7%Z - :: 'H ■* tffi ' 

0D9D 

55 




0D9E 

52 




0D9F 

45 




ODAO 

3F 




0DA1 

20 




0DA2 

04 


FCB 

4 






0DA3 4E NLDSTR FCC 'NO LINES DELETED' 

0DA4 4F 

0DA5 20 

0DA6 4C 

0DA7 4? 

0DA8 4E 
0DA9 45 
ODAA 53 
ODAB 20 
ODAC 44 
ODAD 45 
ODAE 4C 
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LOCN 

B1 B2 B3 


ODAF 

45 


ODBO 

54 


0DB1 

45 


0DB2 

44 


0DB3 

04 

FCB 

0DB4 

42 

BFRSTR FCC 

0DB5 

4F 


0DB6 

54 


0DB7 

54 


0DB8 

4F 


0DB9 

4D 


ODBA 

20 


ODBB 

4F 


ODBC 

46 


ODBD 

20 


ODBE 

46 


ODBF 

49 


ODCO 

4C 


0DC1 

45 


0DC2 

20 


0DC3 

52 


0DC4 

45 


0DC5 

41 


0DC6 

43 


0DC7 

48 


0DC8 

45 


0DC9 

44 


ODCA 

04 

FCB 


4 

'BOTTOM OF FILE REACHED' 


* CHANGE COMMAND ROUTINE 


ODCB 

BD 

08 

A8 

CHANGE 

JSR 


TSTEMP 


ODCE 

DE 

44 



LDX 


BUFPNT 

POINT TO BUFFER 

ODDO 

BD 

07 

38 


JSR 


SKPCLS 


0DD3 

BD 

06 

63 


JSR 


TSTEND 


0DD6 

27 

03 



BEQ 


CHAN12 

ERROR 

0DD8 

5D 



CHANG1 

TST 

B 



0DD9 

27 

03 



BEQ 


CHAN15 

ERROR 

ODDB 

7E 

OF 

04 

CHAN12 

JMP 


CHANG9 


ODDE 

7C 

00 

85 

CHAN15 

INC 


CHGFLG 

SET FLAG 

0DE1 

BD 

05 

FA 


JSR 


SETDEL 

SET DELIMITERS 

0DE4 

5F 




CLR 

B 


CLEAR COUNT 

0DE5 

A6 

00 


CHANG2 

LDA 

A 

OrX 

GET CHAR. 

0DE7 

BD 

06 

63 


JSR 


TSTEND 


ODEA 

27 

08 



BEQ 


CHANG3 


ODEC 

91 

95 



CMP 

A 

DELIM 

IS IT DELIMITER? 

ODEE 

27 

04 



BEQ 


CHANG3 


ODFO 

08 




INX 



BUMP THE POINTER 

0DF1 

5C 




INC 

B 


BUMP THE COUNT 

0DF2 

20 

FI 



BRA 


CHANG2 


0DF4 

DF 

66 


CHANG3 

STX 


CHGEND 

SAVE POINTER 

0DF6 

D7 

86 



STA 

B 

STRCN2 

SAVE COUNT 

0DF8 

BD 

06 

63 


JSR 


TSTEND 







TSC 6800 


LOCN B1 
ODFB 27 
ODFD 08 
ODFE DF 
OEOO BE 
0E02 08 
0E03 08 
0E04 08 
OEOS DF 
0E07 BD 
OEOA 7F 
OEOD BD 
0E10 7C 
0E13 BD 
0E16 7F 
0E19 DE 
0E1B DF 
0E1D 96 
0E1F 27 
0E21 96 
0E23 26 
0E25 7E 
0E28 DE 
0E2A 9C 
0E2C 26 
0E2E 7C 
0E31 BD 
0E34 7F 
0E37 DE 
0E39 BD 
0E3C BD 
0E3F 20 


0E41 7F 
0E44 DE 
0E46 BD 
0E49 BD 
0E4C 22 
0E4E BD 
0E51 96 
0E53 97 
0E55 96 
0E57 97 
0E59 5D 
0E5A 26 
0E5C 5C 
0E5D D7 
0E5F 96, 
0E61 27 
0E63 96 
0E65 26 
0E67 BD 
0E6A DE 
0E6C 08 
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B2 B3 
01 


BEG 

INX 


44 


CHAN35 

STX 


4A 



LDX 




CHAN37 

INX 





INX 





INX 


64 



STX 


OF 

07 


JSR 


00 

85 


CLR 


OA 

48 


JSR 


00 

85 


INC 


OF 

14 


JSR 


00 

6D 


CLR 


6E 



LDX 


68 



STX 


78 



LDA 

A 

07 



BEG 


7B 



LDA 

A 

03 



BNE 


OF 

04 


JMP 


4A 


CHANG4 

LDX 


93 



CPX 


03 



BNE 


00 

88 


INC 


06 

3B 

CHANG5 

JSR 


00 

79 


CLR 


64 



LDX 


06 

5A 


JSR 


05 

B8 


JSR 


10 



BRA 




* LOOP 

THROUGH 

00 

79 

CHAN50 

CLR 


64 


CHAN51 

LDX 


06 

5A 


JSR 


06 

4F 


JSR 


7A 



BHI 


05 

DF 


JSR 


90 


CHA510 

LDA 

A 

62 



STA 

A 

91 



LDA 

A 

63 



STA 

A 




TST 

B 

6C 



BNE 





INC 

B 

87 



STA 

B 

78 


CHAN52 

LDA 

A 

OE 



BEG 


77 



LDA 

A 

OA 



BNE 


OA 

87 


JSR 


5C 


CHAN55 

LDX 



BUFPNT 

NEWPOS 


CHGPNT 

SVSTPT 

CHGFLG 

OCCURR 

CHGFLG 

RSTSPT 

PSTZFL 

OCRCNT 

OCRTMP 

OCRFLG 

CHANG4 

STRCNT 

CHANG4 

CHANG9 

NEWPOS 

TRGLIN 

CHANG5 

LSTFLG 

Z0NE3 

CHGONF 

CHGPNT 

FIXZON 

FIND72 

CHA510 


CHGONF 

CHGPNT 

FIXZON 

CMPZN2 

CHANG8 

FIND75 

NUMBER 

ZONBUF 

NUMBER+1 

ZONBUF+1 

CHANG8 

FNONFL 

OCRFLG 

CHANG6 

ALLFLG 

CHANG6 

NXTOCO 

LASTNO 


BUMP POINTER 
SAVE IT 

BUMP THREE TIMES 


SAVE POINTER 
SAVE STRING POINT 

GET TARG S OCCUR# 

RESTORE STRING 

GET COUNT 
SAVE 

CHECK COUNT 

AT TARGET? 

SET FLAG IF SO 
SET ZONE 
CLEAR FLAG 

SET ZONE 


SET POINTER 
CHECK ZONE 


GET NUMBER 
PUT IN BUFFER 


BUMP COUNTER 
SET FLAG 
ANY OCCURR.? 

CHANGE ALL? 


SET POINTER 
BUMP IT 


C 


c 
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LOCN 

B1 

B2 

B3 






0E6D 

DF 

64 



STX 


CHGPNT 


0E6F 

20 

DO 



BRA 


CHAN50 






* DELETE STRING ONE 


0E71 

7C 

00 

79 

CHANG6 

INC 


CHGONF 

SET FLAG 

0E74 

DE 

68 



LDX 


OCRTMP 

CHECK COUNT 

0E76 

27 

04 



BEQ 


CHAN61 


0E78 

86 

01 



LDA 

A 

*1 


0E7A 

97 

78 



STA 

A 

OCRFLG 


0E7C 

DF 

6E 


CHAN61 

STX 


OCRCNT 

FIX COUNT 

0E7E 

DE 

5C 



LDX 


LASTNO 

GET STR, LOCATION 

0E80 

DF 

58 



STX 


SPCPT1 


0E82 

D6 

7B 



LDA 

B 

STRCNT 


0E84 

27 

10 



BEQ 


CHAN66 


0E86 

7F 

00 

8D 


CLR 


CHRCNT 

CLEAR COUNT 

0E8? 

D7 

8E 



STA 

B 

CHRCNT+1 


0E8B 

27 

04 


CHAN62 

BEQ 


CHAN65 


0E8D 

08 




INX 



BUMP POINTER 

0E8E 

5A 




DEC 

B 


DEC THE COUNTER 

0E8F 

20 

FA 



BRA 


CHAN62 

REPEAT 

0E91 

DF 

5A 


CHAN65 

STX 


SPCPT2 

SAVE POINTER 

0E93 

BD 

OD 

43 


JSR 


DELCHR 

GO DELETE 





* INSERT STRING TWO 


0E96 

D6 

86 


CHAN66 

LDA 

B 

STRCN2 

GET COUNT 

0E98 

27 

23 



BEQ 


CHA675 


0E9A 

7F 

00 

8D 


CLR 


CHRCNT 

CLEAR OUT COUNT 

0E9D 

D7 

8E 



STA 

B 

CHRCNT+1 

SET COUNTER 

0E9F 

DE 

5C 



LDX 


LASTNO 

SET POINTER 

0EA1 

DF 

58 



STX 


SPCPT1 


0EA3 

BD 

OC 

08 


JSR 


MAKSPC 

GO MAKE ROOM 

0EA6 

D6 

8E 



LDA 

B 

CHRCNT+1 


0EA8 

DE 

50 



LDX 


STRNGE 

POINT TO STRING END 

OEAA 

08 



CHAN67 

INX 



BUMP IT 

OEAB 

A6 

00 



LDA 

A 

0»X 

GET CHAR 

OEAD 

DF 

40 



STX 


TEMP 

' 

OEAF 

DE 

5C 



LDX 


LASTNO 


0EB1 

A7 

00 



STA 

A 

OfX 

PUT CHARACTER 

0EB3 

08 




INX 



BUMP POINTER 

0EB4 

DF 

5C 



STX 


LASTNO 

SAVE 

0EB6 

DF 

64 



STX 


CHGPNT 


0EB8 

DE 

40 



LDX 


TEMP 

RESTORE 

OEBA 

5A 




DEC 

B 


DEC THE COUNTER 

OEBB 

26 

ED 



BNE 


CHAN67 


OEBD 

96 

77 


CHA675 

LDA 

A 

ALLFLG 

DO ALL? 

OEBF 

27 

1C 



BEQ 


CHAN81 


0EC1 

DE 

5C 



LDX 


LASTNO 


0EC3 

DF 

64 



STX 


CHGPNT 

SAVE POINTER 

0EC5 

7E 

OE 

44 


JMP 


CHAN51 

REPEAT 


* CHANGE CLEANUP AND FINISH 
0EC8 7F 00 78 CHANG8 CLR OCRFLG CLEAR FLAG 
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LOCN 

B1 

B2 

B3 





OECB 

DE 

68 



LDX 

OCRTMP 

GET COUNT 

OECD 

27 

04 



BEQ 

CHAN80 


OECF 

86 

01 



LDA A 

*1 

SET FLAG 

0ED1 

97 

78 



STA A 

OCRFLG 


0ED3 

DF 

6E 


CHAN80 

STX 

OCRCNT 

SET OCCUR. COUNT 

OEDS 

96 

87 



LDA A 

FNONFL 

CHECK FLAG 

0ED7 

26 

04 



BNE 

CHAN81 


OED? 

96 

88 



LDA A 

LSTFLG 


OEDB 

26 

27 



BNE 

CHANG9 


OEDD 

DE 

4A 


CHAN81 

LDX 

NEWPOS 


OEDF 

96 

79 



LDA A 

CHGONF 


0EE1 

27 

03 



BEQ 

CHAN82 


0EE3 

BD 

08 

3F 


JSR 

VERLIN 

VERIFY CHANGE 

0EE6 

96 

88 


CHAN82 

LDA A 

LSTFLG 


0EE8 

27 

06 



BEQ 

CHAN84 


OEEA 

7F 

00 

79 


CLR 

CHGONF 

CLEAR FLAG 

OEED 

7E 

08 

A2 


JMP 

PRINT6 


OEFO 

BD 

06 

C3 

CHAN84 

JSR 

NXTLIN 

FIND NEXT LINE 

0EF3 

DF 

4A 



STX 

NEUPOS 

SAVE POINTER 

0EF5 

9C 

93 



CPX 

TRGLIN 

TARGET LINE? 

0EF7 

26 

03 



BNE 

CHAN86 


0EF9 

7C 

00 

88 


INC 

LSTFLG 

SET LAST FLAG 

OEFC 

08 



CHAN86 

I NX 


BUMP 3 TIMES 

OEFD 

08 




INX 



OEFE 

08 




INX 



OEFF 

DF 

64 



STX 

CHGPNT 

SAVE POINTER 

OFOl 

7E 

OE 

31 


JMP 

CHANG5 

REPEAT 

0F04 

7E 

04 

41 

CHANG9 

JMP 

ERROR 

REPORT ERROR 


* SAVE STRING POINTER INFO 


0F07 

DE 

4E 

SVSTPT LDX 


STRNGB 

GET POINTER 

0F09 

DF 

52 

STX 


STRGB1 

SAVE IT 

OFOB 

DE 

50 

LDX 


STRNGE 


OFOD 

DF 

54 

STX 


STRGE1 

' 

OFOF 

96 

7B 

LDA 

A 

STRCNT 

GET COUNT 

0F11 

97 

71 

STA 

A 

STRCN1 

SAVE IT 

OF 13 

39 


RTS 



RETURN 




■f 



* RESTORE STRING POINTER INFO 


OF 14 

DE 

52 

RSTSPT LDX 

STRGB1 

GET POINTER 

OF 16 

DF 

4E 

STX 

STRNGB 

RESTORE 

OF 18 

DE 

54 

LDX 

STRGE1 


0F1A 

DF 

50 

STX 

STRNGE 


OF 1C 

96 

71 

LDA A 

STRCN1 

GET COUNT 

0F1E 

97 

7B 

STA A 

STRCNT 

RESTORE IT 

0F20 

39 


RTS 


RETURN 


* OVERLAY ROUTINE 




0F21 BD 08 A8 OVERLA JSR 


TSTEMP 
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LOCN 

B1 

B2 

B3 






OF24 

86 

20 



LDA 

A 

*$20 

SETUP SPACE 

0F26 

97 

95 



STA 

A 

DELIM 

AS DELIMITER 

0F28 

7F 

00 

8C 


CLR 


DRCTN 


0F2B 

DE 

44 



LDX 


BUFPNT 

SET POINTER TO BUFFER 

0F2D 

A 6 

00 



LDA 

A 

OfX 

GET A CHAR. 

0F2F 

81 

OD 



CMP 

A 

♦CRGRET 


OF31 

27 

12 



BEG 


0VRLA1 


0F33 

BD 

07 

3B 


JSR 


CLASS 


0F36 

5D 




TST 

B 



0F37 

27 

03 



BEG 


OVRLAO 


0F39 

7E 

04 

71 


JMP 


SYNERR 

REPORT ERROR 

0F3C 

97 

95 


OVRLAO 

STA 

A 

DELIM 

SET DELIMITER 

0F3E 

08 




I NX 




0F3F 

A6 

00 



LDA 

A 

OfX 

GET CHARACTER 

0F41 

81 

OD 



CMP 

A 

♦CRGRET 


OF43 

26 

2C 



BNE 


0VRL35 


0F45 

DE 

4A 


0VRLA1 

LDX 


NEWPOS 

SET POINTER 

0F47 

BD 

08 

AF 

0VRL11 

JSR 


OUTLIN 

OUTPUT CUR. LINE 

0F4A 

96 

6A 



LDA 

A 

NUMFLG 


0F4C 

26 

05 



BNE 


0VRL12 


0F4E 

CE 

OF 

D2 


LDX 


♦OVRLST+8 

POINT TO STRING 

0F51 

20 

03 



BRA 


0VRL16 


0F53 

CE 

OF 

CA 

0VRL12 

LDX 


♦OVRLST 

POINT TO STRING 

0F56 

BD 

04 

83 

0VRL16 

JSR 


PSTRNG 

OUTPUT IT 

0F59 

CE 

00 

BB 


LDX 


♦BUFFER 

POINT TO IN BUFFER 

0F5C 

BD 

04 

99 

0VRLA2 

JSR 


INCHAR 

GET A CHAR. 

0F5F 

27 

E4 



BEG 


0VRLA1 


0F61 

81 

OD 



CMP 

A 

♦CRGRET 


0F63 

27 

07 



BEG 


0VRLA3 


0F65 

A7 

00 



STA 

A 

OrX 


0F67 

BD 

04 

BB 


JSR 


BUFLIM 


0F6A 

20 

FO 



BRA 


0VRLA2 


0F4C 

A7 

00 


0VRLA3 

STA 

A 

OfX 


0F6E 

CE 

00 

BB 


LDX 


♦BUFFER 

POINT TO BUFFER 

0F71 

DF 

44 


0VRL35 

STX 


BUFPNT 


0F73 

C 6 

OD 



LDA 

B 

♦CRGRET 


0F75 

DE 

4A 



LDX 


NEWPOS 

POINT TO POSITION 

0F77 

08 




INX 




0F78 

08 




INX 




0F79 

08 




INX 




0F7A 

DF 

40 



STX 


TEMP 

SAVE POINTER 

0F7C 

DE 

44 


0VRLA4 

LDX 


BUFPNT 


0F7E 

A6 

00 


0VRL41 

LDA 

A 

OfX 

GET A CHAR. 

0F80 

08 




INX 



BUMP POINTER 

0F81 

DF 

44 



STX 


BUFPNT 

SAVE IT 

0F83 

81 

OD 



CMP 

A 

♦CRGRET 


0F85 

27 

3B 



BEG 


0VRLA7 


0F87 

DE 

40 



LDX 


TEMP 


0F89 

7D 

00 

8C 


TST 


DRCTN 


0F8C 

26 

08 



BNE 


0VRL43 


0F8E 

El 

00 



CMP 

B 

OfX 

CHECK IT 

0F90 

27 

OB 



BEG 


0URLA5 


0F92 

91 

95 



CMP 

A 

DELIM 

IS IT DELIMITER? 

0F94 

27 

02 



BEG 


0VRL45 


0F96 

A7 

00 


0VRL43 

STA 

A 

OfX 

PUT CHARACTER 


43 
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LOCN 

B1 

B2 

B3 






0F98 

08 



0VRL45 

INX 



BUMP POINTER 

0F99 

DF 

40 



STX 


TEMP 

• 

0F9B 

20 

DF 



BRA 


0VRLA4 


0F9D 

96 

8C 


0VRLA5 

LDA 

A 

DRCTN 

CHECK DIRECTION 

0F9F 

26 

21 



BNE 


0VRLA7 


0FA1 

4F 




CLR 

A 



0FA2 

97 

8D 



STA 

A 

CHRCNT 

CLEAR COUNT 

0FA4 

DE 

44 



LDX 


BUFPNT 

GET POINTER 

0FA6 

4C 



0VRL55 

INC 

A 



0FA7 

El 

00 



CMP 

B 

0 r X 

CHECK CHAR. 

0FA9 

27 

03 



BEQ 


0VRLA6 


OFAB 

08 




INX 



BUMP THE POINTER 

OFAC 

20 

F8 



BRA 


0VRL55 

REPEAT 

OFAE 

97 

8E 


0VRLA6 

STA 

A 

CHRCNT+1 

SAVE COUNT 

OFBO 

DE 

40 



LDX 


TEMP 


0FB2 

DF 

58 



STX 


SPCPT1 

SET POINTER 

0FB4 

86 

01 



LDA 

A 

#1 


0FB6 

97 

8C 



STA 

A 

DRCTN 

SET DIRECTION 

0FB8 

BD 

OC 

08 


JSR 


MAKSPC 

MAKE ROOM 

OFBB 

C6 

OD 



LDA 

B 

♦CRGRET 


OFBD 

DE 

44 



LDX 


BUFPNT 

GET POINTER 

OFBF 

09 




DEX 




OFCO 

20 

BC 



BRA 


0VRL41 


0FC2 

DE 

4A 


0VRLA7 

LDX 


NEWPOS 

GET POSITION 

0FC4 

BD 

08 

3F 


JSR 


VERLIN 

VERIFY LINE 

0FC7 

7E 

03 

8A 

0VRLA8 

JMP 


EDIT 

RETURN 

OFCA 

20 



OVRLST 

FCC 


' OVERLAY 

/ 

OFCB 

4F 








OFCC 

56 








OFCD 

45 








OFCE 

52 








OFCF 

4C 





' V- 



OFDO 

41 








0FD1 

59 



• 





0FD2 

20 








0FD3 

04 




FCB 


4 







* MOVE 

COMMAND 



0FD4 

7C 

00 

80 

MOVE 

INC 


MOVFLG 

SET FLAG 

0FD7 

8D 

1A 



BSR 


COPY 

GO DO COPY 

0FD9 

96 

8B 



LDA 

A 

CPYDRC 

WHICH DIRECTION? 

OFDB 

97 

8C 



STA 

A 

DRCTN 


OFDD 

DE 

93 



LDX 


TRGLIN 

GET TARGET 

OFDF 

DF 

5A 



STX 


SPCPT2 


0FE1 

DE 

4A 



LDX 


NEWPOS 

GET POSITION 

0FE3 

DF 

58 



STX 


SPCPT1 


0FE5 

DE 

48 



LDX 


CURPOS 

GET CURRENT POS. 

0FE7 

DF 

93 



STX 


TRGLIN 

MAKE IT TARGET 

0FE9 

BD 

OD 

43 


JSR 


DELCHR 

DELETE LINES 

OFEC 

DE 

93 



LDX 


TRGLIN 


OFEE 

DF 

48 



STX 


CURPOS 

FIX POSITION 

OFFO 

7E 

08 

A2 


JMP 


PRINT6 
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C 




LOCN 

B1 

B2 

B3 










♦ COPY 

LINES 

COMMAND 


0FF3 

DE 

44 


COPY 

LDX 


BUFPNT 

POINT TO BUFFER 

0FF5 

7C 

00 

76 


INC 


NXTFLG 

SET FLAG 

0FF8 

7C 

00 

75 


INC 


LINFLG 

SET FLAG 

OFFB 

BD 

04 

E9 


JSR 


FINDT 

FIND TARGET 

OFFE 

?C 

99 



CPX 


FILEND 


1000 

27 

1A 



BEQ 


COPYO 


1002 

7F 

00 

75 


CLR 


LINFLG 


1005 

7F 

00 

76 


CLR 


NXTFLG 


1008 

?C 

97 



CPX 


FILBEG 

BEGINNING? 

100A 

26 

04 



BNE 


C0PY02 


100C 

9C 

4A 



CPX 


NEUPOS 


100E 

27 

04 



BEQ 


C0PY05 


1010 

96 

8C 


C0PY02 

LDA 

A 

DRCTN 

FIX DIRECTION 

1012 

97 

8B 



STA 

A 

CPYDRC 


1014 

7F 

00 

8C 

C0PY05 

CLR 


DRCTN 


1017 

BD 

08 

21 


JSR 


TSTOVR 

LIMITS? 

101A 

27 

03 



BEQ 


C0PY1 


101C 

7E 

04 

5F 

COPYO 

JMP 


NOTFND 

REPORT ERROR 

101F 

BD 

07 

E6 

C0PY1 

JSR 


FNDCRT 

FIND NEXT C,R. 

1022 

08 




INX 



BUMP POINTER ONE 

1023 

DF 

58 



STX 


SPCPT1 


1025 

DE 

44 



LDX 


BUFPNT 


1027 

BD 

04 

E9 


JSR 


FINDT 

GO FIND TARGET 

102A 

BD 

08 

21 


JSR 


TSTOVR 

LIMITS? 

102D 

26 

ED 



BNE 


COPYO 


102F 

7D 

00 

8C 


TST 


DRCTN 

DIRECTION? 

1032 

26 

08 



BNE 


C0PY15 


1034 

DE 

4A 



LDX 


NEWPOS 

GET POINTER 

1036 

DF 

40 



STX 


TEMP 


1038 

DE 

93 



LDX 


TRGLIN 


103A 

20 

06 



BRA 


C0PY18 


103C 

DE 

93 


C0PY15 

LDX 


TRGLIN 

GET TARGET 

103E 

DF 

40 



STX 


TEMP 

SAVE IT 

1040 

DE 

4A 



LDX 


NEUPOS 


1042 

BD 

07 

E6 

C0PY18 

JSR 


FNDCRT 

GET NEXT C»R« 

1045 

08 




INX 



BUMP POINTER 

1046 

DF 

93 



STX 


TRGLIN 

SET TARGET 

1048 

DE 

40 



LDX 


TEMP 


104A 

DF 

4A 



STX 


NEUPOS 


104C 

4F 




CLR 

A 


CLEAR ACCUMULATORS 

104D 

5F 




CLR 

B 



104E 

08 



C0PY2 

INX 



BUMP THE POINTER 

104F 

4C 




INC 

A 


BUMP COUNT 

1050 

26 

01 



BNE 


C0PY25 


1052 

5C 




INC 

B 



1053 

9C 

93 


C0PY25 

CPX 


TRGLIN 

FINISHED? 

1055 

27 

10 



BEQ 


C0PY3 


1057 

9C 

58 



CPX 


SPCPT1 

OVERLAP? 

1059 

26 

F3 



BNE 


C0PY2 


105B 

CE 

10 

B4 


LDX 


♦OVLPST 

POINT TO STRING 

105E 

BD 

04 

83 


JSR 


PSTRNG 

OUTPUT IT 
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LOCN 

B1 

B2 

B3 






1061 

7F 

00 

6C 


CLR 


MSLFLG 


1064 

7E 

03 

8A 


JMP 


EDIT 

RETURN 

1067 

97 

8E 


C0PY3 

STA 

A 

CHRCNT+1 

SAVE COUNT 

106? 

D7 

8D 



STA 

B 

CHRCNT 


106B 

86 

01 



LDA 

A 

*1 

SET DIRECTION 

106D 

97 

8C 



STA 

A 

DRCTN 


106F 

BD 

OC 

08 


JSR 


MAKSPC 

MAKE ROOM FOR LINES 

1072 

DE 

5A 



LDX 


SPCPT2 


1074 

DF 

48 



STX 


CURPOS 

SET CUR* POSITION 

1076 

DE 

58 



LDX 


SPCPT1 


1078 

DF 

42 



STX 


XSAVE 


107A 

DE 

93 



LDX 


TRGLIN 

GET TARGET 

107C 

DF 

58 



STX 


SPCPT1 


107E 

DE 

4A 



LDX 


NEUPOS 


1080 

DF 

40 



STX 


TEMP 

SET POINTER 

1082 

BD 

OC 

64 


JSR 


MAKS55 

MOVE LINES 

1085 

DE 

42 



LDX 


XSAVE 

RESTORE POINTER 

1087 

7F 

00 

72 


CLR 


OVRBEG 


108A 

BD 

07 

FO 


JSR 


BAKONE 

MOVE BACK ONE 

108D 

96 

72 



LDA 

A 

OVRBEG 

LIMIT? 

108F 

27 

18 



BEG) 


C0PY5 


1091 

BD 

07 

A3 


JSR 


CLRNUM 

CLEAR NUMBER 

1094 

7C 

00 

83 

C0PY4 

INC 


CHKFLG 

SET FLAG 

1097 

BD 

06 

BO 


JSR 


RENUM2 

GO RENUMBER 

109A 

DE 

48 



LDX 


CURPOS 

GET POSITION 

109C 

BD 

07 

FO 


JSR 


BAKONE 


109F 

DF 

48 



STX 


CURPOS 

SET CUR* POSITION 

10A1 

96 

80 



LDA 

A 

MOVFLG 

MOVE? 

10A3 

27 

01 



BEG 


C0PY45 


10A5 

39 




RTS 



RETURN 

10A6 

7E 

08 

A2 

C0PY45 

JMP 


PRINT6 


10A9 

BD 

06 

98 

C0PY5 

JSR 


GETNUM 

GET LINE NUMBER 

10AC 

4F 




CLR 

A 



10AD 

97 

92 



STA 

A 

NUMBER+2 


10AF 

BD 

08 

OF 


JSR 


UPONE 


10B2 

20 

EO 



BRA 


C0PY4 


10B4 

53 



OVLPST 

FCC 


'SOURCE OVERLAPS DESTINATION' 


10B5 AF 
10B6 55 
10B7 52 
10B8 43 
10B? 45 
10BA 20 
10BB 4F 
10BC 56 
10BD 45 
10BE 52 
10BF 4C 
10C0 41 
10C1 50 
10C2 53 
10C3 20 
10C4 44 
10C5 45 




L 
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■ 0 . 


LOCN B1 B2 B3 
10C6 53 
10C7 54 
10C8 4? 

IOC? 4E 
10CA 41 
10CB 54 
10CC 4? 

10CD 4F 
10CE 4E 

10CF 04 FCB 4 


* TAB SET COMMAND 


10D0 

CE 

00 

9D 

TAB 

LDX 


10D3 

DF 

9B 



STX 


10D5 

DE 

44 


TAB2 

LDX 


10D7 

BD 

04 

92 


JSR 


10DA 

DF 

44 



STX 


10DC 

BD 

06 

63 


JSR 


10DF 

27 

2F 



BEQ 


10E1 

BD 

07 

3B 


JSR 


10E4 

Cl 

01 



CMP 

B 

10E6 

27 

07 



BEG 


10E8 

22 

2E 



BHI 


10EA 

08 




INX 


10EB 

DF 

44 



STX 


10ED 

20 

E6 



BRA 


10EF 

BD 

07 

55 

TAB4 

JSR 


10F2 

DF 

44 



STX 


10F4 

5F 




CLR 

B 

10F5 

BD 

08 

38 


JSR 


10F8 

27 

16 



BEG 


10FA 

5C 



TAB5 

INC 

B 

10FB 

37 




PSH 

B 

10FC 

BD 

08 

2A 


JSR 


10FF 

33 




PUL 

B 

1100 

26 

F8 



BNE 


1102 

DE 

9B 



LDX 


1104 

E7 

00 



STA 

B 

1106 

08 




INX 


1107 

DF 

9B 



STX 


1109 

8C 

00 

B1 


CPX 


HOC 

27 

02 



BEG 


110E 

20 

C5 



BRA 


1110 

4F 



TAB6 

CLR 

A 

1111 

DE 

9B 



LDX 


1113 

A7 

00 



STA 

A 

1115 

7E 

09 

30 


JMP 


1118 

7E 

04 

71 

TAB8 

JMP 



* PRINT 

HEADER 

11IB CE 00 ?D HEADER 

LDX 


♦TABBUF 

TABPNT 

SET POINTER 

BUFPNT 

SKIPSP 

POINT TO BUFFER 

BUFPNT 

TSTEND 

TAB6 

SAVE 

CLASS 

CLASSIFY CHAR. 

41 

TAB4 

TAB8 

IS IT A NUMBER? 

BUMP THE POINTER 

BUFPNT 

TAB2 

SAVE IT 

BCDCON 

BUFPNT 

GET COLUMN 

TSTNUM 

TAB6 

IS IT ZERO? 

BUMP COUNT 

DECNUM 

DEC THE COUNT 

TABS 

TABPNT 

POINT TO TABS 

OrX 

SAVE COUNT 

TABPNT 

♦TABEND 

TAB6 

TAB2 

FIX TAB POINTER 

TABPNT 

OrX 

NUMSE6 

CLEAR TAB 

SYNERR 

REPORT ERROR 

COMMAND 

♦TABBUF 

SET POINTER 
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LOCN B1 B2 B3 

111E DF 9B STX 

1120 DE 44 LDX 

1122 BD 04 92 JSR 

1125 BD 06 63 JSR 

1128 27 1C BEG 

112A BD 07 3B HEADE2 JSR 

112D Cl 01 CMP B 

112F 26 E7 BNE 

1131 BD 07 55 JSR 

1134 DF 44 STX 

1136 BD 08 38 JSR 

1139 27 40 BEG 

113B 5F CLR B 

113C 5C HEADE3 INC B 

113D 37 PSH B 

113E BD 08 2A JSR 

1141 33 PUL B 

1142 26 F8 BNE 

1144 D7 96 HEADE4 STA B 

1146 BD 07 A3 HEAD42 JSR 

1149 BD 04 4E JSR 

114C 96 6A LDA A 

114E 27 08 BEG 

1150 C6 08 LDA B 

1152 BD 08 CD HEAD45 JSR 

1155 5A DEC B 

1156 26 FA BNE 

1158 BD 08 CD HEADE5 JSR 

115B 5F CLR B 

H5C 37 HEAD55 PSH B 

115D BD 06 7C JSR 

1160 33 PUL B 

1161 5C INC B 

1162 DE 9B LDX 

1164 El 00 CMP B 

1166 26 OA BNE 

1168 86 2D LDA A 

116A BD 02 09 JSR 

116D 08 INX 

116E DF 9B STX 

1170 20 05 BRA 

1172 96 91 HEAD57 LDA A 

1174 BD 09 17 JSR 

1177 D1 96 HEAD58 CMP B 

1179 26 El BNE 

117B 7E 09 30 HEADE7 JMP 


TABPNT 

BUFPNT 

SKIPSP 

SKIP ALL SPACES 

TSTEND 

HEAD42 

CLASS 

CLASSIFY CHAR* 

*1 

IS IT NUMBER? 

TAB8 

ERROR 

BCDCON 

GET NUMBER COUNT 

BUFPNT 

TSTNUM 

IS IT ZERO? 

HEADE7 

DECNUM 

BUMP COUNTER 

DEC NUMBER 

HEADE3 

HEDCNT 

SAVE COUNT 

CLRNUM 

CLEAR NUMBER 

PCRLF 

OUTPUT C.R. L*F* 

NUMFLG 

LINE NUMBERS ON? 

HEADE5 

*8 

SET COUNT 

OUTSPC 

OUT SPACE 

HEAD45 

OUTSPC 

INCNUM 

CLEAR COUNT 

BUMP NUMBER 

TABPNT 

BUMP COUNT 

GET TAB COL* 

0»X 

THERE? 

HEAD57 

#'- 

SET UP / - / 

OUTCH 

OUTPUT IT 

TABPNT 

HEAD58 

NUMBER+1 

BUMP POINTER 

GET NUMBER 

OUTHR 

OUTPUT IT 

HEDCNT 

HEAD55 

REPEAT TIL DONE 

NUMSE6 






* SET UP ZONE COLUMN COMMAND 


117E 

DE 

44 


1180 

BD 

04 

92 

1183 

BD 

06 

63 

1186 

27 

OA 


1188 

BD 

07 

3B 


SZONE 


LDX BUFPNT 
JSR SKIPSP 
JSR TSTEND 
BEG SZ0NE2 
JSR CLASS 


POINT TO BUFFER 


CLASSIFY CHARACTER 


C 





ft?j - -m- 

TSC 6800 TEXT EDITING SYSTEM 


PAGE 


LOCN 

B1 

B2 

B3 





USB 

Cl 

01 



CMP B 

*1 

IS IT A NUMBER? 

118D 

27 

OA 



BEG 

SZ0NE3 


118F 

22 

38 



BHI 

SZ0NE8 


1191 

08 




INX 



1192 

DF 

44 


SZ0NE2 

STX 

BUFPNT 

SAVE POINTER 

1194 

CE 

00 

01 


LDX 

#♦0001 

SET COLUMN 1 

1197 

20 

07 



BRA 

SZ0NE4 


1199 

BD 

07 

55 

SZ0NE3 

JSR 

BCDCON 

GET NUMBER 

119C 

DF 

44 



STX 

BUFPNT 

SAVE POINTER 

119E 

DE 

90 



LDX 

NUMBER 


11A0 

DF 

5E 


SZ0NE4 

STX 

Z0NE1 

FIX Z0NE1 

11A2 

DE 

44 



LDX 

BUFPNT 


11A4 

BD 

04 

92 

SZ0NE5 

JSR 

SKIPSP 

SKIP ALL SPACES 

11A7 

BD 

06 

63 


JSR 

TSTEND 


11AA 

27 

OC 



BEG 

SZ0NE6 


11 AC 

BD 

07 

3B 


JSR 

CLASS 

GO CLASSIFY 

11AF 

Cl 

01 



CMP B 

#1 

IS IT A NUMBER? 

11B1 

27 

OA 



BEG 

SZ0NE7 


11B3 

22 

14 



BHI 

SZ0NE8 

ERROR 

11B5 

08 




INX 


BUMP POINTER 

11B6 

20 

EC 



BRA 

SZ0NE5 


11B8 

CE 

01 

36 

SZ0NE6 

LDX 

#♦0136 

SET COLUMN 136 

1 IBB 

20 

07 



BRA 

SZ0N75 


11BD 

BD 

07 

55 

SZ0NE7 

JSR 

BCDCON 

GET NUMBER 

11C0 

DF 

44 



STX 

BUFPNT 

SAVE POINTER 

11C2 

DE 

90 



LDX 

NUMBER 


11C4 

DF 

60 


SZ0N75 

STX 

Z0NE2 

SET Z0NE2 

11C6 

7E 

09 

30 


JMP 

NUMSE6 


11C9 

7E 

04 

41 

SZ0NE8 

JMP 

ERROR 

REPORT ERROR 






♦ SET 

SPECIAL 

CHARATERS 

COMMAND 

11CC 

DE 

44 


SET 

LDX 

BUFPNT 

SET POINTER 

1 ICE 

BD 

04 

92 


JSR 

SKIPSP 


11D1 

DF 

44 



STX 

BUFPNT 


UD3 

DF 

40 



STX 

TEMP 

SAVE POINTER 

11D5 

CE 

12 

41 


LDX 

♦CHRTBL 

POINT TO TABLE 

11D8 

7E 

04 

00 


JMP 

EDIT6 

GO FIND NAME 





♦ SET 

SPECIALS 

HERE 






* TAB 




11DB 

CE 

00 

B2 

STAB 

LDX 

♦TABCH 

POINT TO TAB CHAR 

1 IDE 

20 

OD 



BRA 

SETC 






♦ FILL 




11E0 

CE 

00 

B3 

SFILL 

LDX 

♦FILL 

POINT TO FILL 

11E3 

20 

08 



BRA 

SETC 






♦ EOL 




11E5 

CE 

00 

B5 

SEOL 

LDX 

♦EOL 

POINT TO EOL CHAR 

11E8 

20 

03 



BRA 

SETC 






* LINO 




11EA 

CE 

00 

B4 

SLINO 

LDX 

♦LINO 

POINT TO IT 


49 
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LOCN B1 B2 B3 

* SET THE CHARACTER 


11ED 

DF 

40 


SETC 

STX 


TEMP 

SAVE POINTER 

11EF 

DE 

44 



LDX 


BUFPNT 

GO TO BUFFER 

11F1 

BD 

04 

92 


JSR 


SKIPSP 


11F4 

81 

3D 



CMP 

A 

#' = 

IS IT = 

11F6 

26 

3F 



BNE 


SETC8 

ERROR 

11F8 

8D 

40 



BSR 


CHFRQU 


UFA 

26 

3B 



BNE 


SETC8 

ERROR 

11FC 

8D 

3C 



BSR 


CHFRQU 


11FE 

26 

04 



BNE 


SETC2 


1200 

4F 




CLR 

A 


SET NULL CHAR. 

1201 

36 




PSH 

A 



1202 

20 

OF 



BRA 


SETC4 


1204 

BD 

07 

3B 

SETC2 

JSR 


CLASS 

GO CLASSIFY 

1207 

5D 




TST 

B 



1208 

26 

2D 



BNE 


SETC8 

ERROR? 

120A 

81 

OD 



CMP 

A 

♦CRGRET 


120C 

27 

29 



BEG 


SETC8 


120E 

36 




PSH 

A 


SAVE CHAR 

120F 

8D 

29 



BSR 


CHFRQU 


1211 

26 

24 



BNE 


SETC8 

ERROR 

1213 

08 



SETC4 

INX 




1214 

DF 

44 



STX 


BUFPNT 

SAVE POSITION 

1216 

BD 

09 

A4 


JSR 


TFORCR 

TEST END 

1219 

32 




PUL 

A 


GET CHAR 

121A 

DE 

40 


• ir* c - 

LDX 


TEMP 

RESTORE POINTER 

121C 

8C 

00 

B3 


CPX 


♦FILL 

IS IT FILL CHAR? 

121F 

26 

07 



BNE 


SETC5 


1221 

4D 



, j 

TST 

A 



1222 

26 

OE 



BNE 


SETC6 


1224 

86 

20 


' 

LDA 

A 

♦ ' 

SETUP SPACE 

1226 

20 

OA 



BRA 


SETC6 


1228 

8C 

00 

B4 

SETC5 

CPX 


♦LINO 

IS IT LINO? 

122B 

26 

05 



BNE 


SETC6 


122D 

4D 


r' 


TST 

A 



122E 

26 

02 


. 

BNE 


SETC6 


1230 

86 

23 



LDA 

A 

♦ '♦ 

SET IT 

1232 

A7 

00 


SETC6 

STA 

A 

0 r X 


1234 

7E 

09 

30 


JMP 


NUMSE6 

RETURN 

1237 

7E 

04 

71 

SETC8 

JMP 


SYNERR 

REPORT ERROR 





♦ CHECK 

FOR 

QUOTE 



123 A 

08 


CHFRQU 

INX 


BUMP 

POINTER 

123B 

BD 

04 92 


JSR 

SKIPSP 

SKIP 

SPACES 

123E 

81 

27 


CMP 

A ♦" 



1240 

39 



RTS 





* SPECIAL CHARACTER TABLE 
1241 54 CHRTBL FCC 'TAB' 
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LOCN 

B1 

B2 B3 



1242 

41 




1243 

42 




1244 

00 


FCB 

0 

1245 

11 

DB 

FDB 

STAB 

1247 

46 


FCC 

'FILL' 

1248 

49 




1249 

4C 




124A 

4C 




124B 

00 


FCB 

0 

124C 

11 

EO 

FDB 

SFILL 

124E 

45 


FCC 

'EOL' 

124F 

4F 




1250 

4C 




1251 

00 


FCB 

0 

1252 

11 

E5 

FDB 

SEOL 

1254 

4C 


FCC 

'LINO' 

1255 

49 




1256 

4E 




1257 

4F 




1258 

00 


FCB 

0 

1259 

11 

EA 

FDB 

SLINO 

125B 

00 


FCB 

0 






* EXPAND TABS 

COMMAND 


125C 

BD 

08 

GO 

<L 

EXPAND 

JSR 


TSTEMP 


125F 

DE 

44 



LDX 


BUFPNT 

GET POINTER 

1261 

BD 

04 

E9 


JSR 


FINDT 

FIND TARGET 

1264 

DE 

4A 



LDX 


NEWPOS 

SAVE IT 

1266 

86 

01 



LDA 

A 

*1 


1268 

97 

8A 



STA 

A 

PRNFLG 

SET FLAG 

126A 

DF 

48 


EXPAN1 

STX 


CURPOS 

SET CURRENT 

126C 

9C 

93 



CPX 


TRGLIN 

LAST LINE? 

126E 

26 

03 



BNE 


EXPAN2 


1270 

7F 

00 

8A 


CLR 


PRNFLG 

CLEAR FLAG 

1273 

8D 

10 


EXPAN2 

BSR 


EXPLIN 

GO DO LINE 

1275 

96 

8A 



LDA 

A 

PRNFLG 

DONE? 

1277 

27 

09 



BEG 


EXPAN5 


1279 

DE 

4A 



LDX 


NEWPOS 

GET POINTER 

127B 

BD 

06 

C3 


JSR 


NXTLIN 

FIND NEXT LINE 

127E 

DF 

4A 



STX 


NEWPOS 

SAVE 

1280 

20 

E8 



BRA 


EXPAN1 


1282 

7E 

08 

A2 

EXPAN5 

JMP 


PRINT6 






* EXPAND TABS 

IN ONE LINE 

1285 

96 

B2 

EXPLIN LDA 

A 

TABCH 


1287 

91 

B3 

CMP 

A 

FILL 

CHECK IF FILL“TAB 

1289 

27 

51 

BEQ 


EXPLI7 


128B 

CE 

00 9D 

LDX 


♦TABBUF 

POINT TO TABS 

128E 

DF 

9B 

STX 


TABPNT 


1290 

E6 

00 

LDA 

B 

OfX 

GET COLUMN 

1292 

27 

48 

BEQ 


EXPLI7 





TSC 6800 

TEXT 1 
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PAGE 

LOCN 

B1 

B2 

B3 






1294 

5F 




CLR 

B 


CLEAR COUNT 

1295 

D7 

8D 



STA 

B 

CHRCNT 


1297 

DE 

4A 



LDX 


NEWPOS 

POINT TO LINE 

1299 

9C 

99 



CPX 


FILEND 


129B 

26 

03 



BNE 


EXPLI1 


129D 

7E 

03 

8A 


JMP 


EDIT 


12A0 

08 



EXPLI1 

INX 



BUMP 3 TIMES 

12A1 

08 




INX 



PAST LINE NO. 

12A2 

08 




INX 




12A3 

5C 



EXPLI2 

INC 

B 


BUMP COUNTER¬ 

12A4 

A6 

00 



LDA 

A 

OrX 

CHECK FOR TAB 

12A6 

81 

OD 



CMP 

A 

♦CRGRET 


12A8 

27 

32 



BEQ 


EXPLI7 


12AA 

91 

B2 



CMP 

A 

TABCH 

IS IT TAB? 

12AC 

27 

03 



BEQ 


EXPLI3 


12AE 

08 




INX 



BUMP THE POINTER 

12AF 

20 

F2 



BRA 


EXPLI2 


12B1 

DF 

40 


EXPLI3 

STX 


TEMP 

SAVE POSITION 

12B3 

DE 

9B 



LDX 


TABPNT 


12B5 

El 

00 


EXPL35 

CMP 

B 

OrX 

CHECK COLUMN 

12B7 

24 

IE 



BCC 


EXPLI6 


12B9 

86 

FF 



LDA 

A 

#*FF 

SET COUNT 

12BB 

4C 



EXPLI4 

INC 

A 



12BC 

5C 




INC 

B 



12BD 

El 

00 



CMP 

B 

OrX 

TAB COL. YET? 

12BF 

26 

FA 



BNE 


EXPLI4 


12C1 

97 

8E 



STA 

A 

CHRCNT+1 

SAVE COUNT 

12C3 

DE 

40 



LDX 


TEMP 


12C5 

DF 

58 



STX 


SPCPT1 

SET SPACE POINTER 

12C7 

BD 

OC 

08 


JSR 


MAKSPC 

GO MAKE ROOM 

12CA 

D6 

8E 



LDA 

B 

CHRCNT+1 


12CC 

5C 




INC 

B 



12CD 

96 

B3 


. 

LDA 

A 

FILL 

GET FILL CHARACTER 

12CF 

A7 

00 


EXPLI5 

STA 

A 

OrX 

PUT CHARACTER 

12D1 

08 




INX 




12D2 

5A 




DEC 

B 


DEC COUNT 

12D3 

26 

FA 



BNE 


EXPLI5 


12D5 

20 

AE 



BRA 


EXPLIN 

REPEAT 

12D7 

08 



EXPLI6 

INX 



BUMP POINTER 

12D8 

A6 

00 



LDA 

A 

OrX 


12DA 

26 

D9 



BNE 


EXPL35 

• 

12DC 

39 



EXPLI7 

RTS 



RETURN 






* APPEND COMMAND 


12DD 

BD 

08 

A8 

APPEND 

JSR 

TSTEMP 


12E0 

DE 

44 



LDX 

BUFPNT 

GET POINTER 

12E2 

BD 

04 

92 


JSR 

SKIPSP 


12E5 

BD 

06 

63 


JSR 

TSTEND 

ALL? 

12E8 

26 

03 



BNE 

APPEN1 


12EA 

7E 

04 

71 

APPENO 

JMP 

SYNERR 


12ED 

BD 

07 

3B 

APPEN1 

JSR 

CLASS 

GO CLASSIFY 

12F0 

5D 




TST B 



12F1 

26 

F7 



BNE 

APPENO 
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LOCN 

B1 

B2 

B3 





12F3 

BD 

05 

FA 


JSR 

SETDEL 

SET DELIMITERS 

12F6 

BD 

07 

3B 


JSR 

CLASS 

CLASSIFY CHARACTER 

12F9 

Cl 

01 



CMP B 

*1 

IS IT NUMBER? 

12FB 

26 

13 



BNE 

APPEN3 


12FD 

BD 

07 

55 


JSR 

BCDCON 

GET COLUMN NO. 

1300 

BD 

08 

38 


JSR 

TSTNUM 

IS IT ZERO? 

1303 

27 

OB 



BEG 

APPEN3 


1305 

4F 




CLR A 



1306 

4C 



APPEN2 

INCA 


BUMP COUNTER 

1307 

36 




PSH A 



1308 

BD 

08 

2A 


JSR 

DECNUM 

DEC NUMBER 

130B 

32 




PUL A 


RESTORE COUNT 

130C 

26 

F8 



BNE 

APPEN2 


130E 

97 

7A 



STA A 

APPCOL 

SAVE COUNT 

1310 

BD 

OF 

07 

APPEN3 

JSR 

SVSTPT 

SAVE DEL INFO 

1313 

DE 

44 



LDX 

BUFPNT 

GET POINTER 

1315 

BD 

04 

E9 


JSR 

FINDT 

FIND TARGET 

1318 

BD 

OF 

14 


JSR 

RSTSPT 

RESTORE DEL INFO 

131B 

7F 

00 

8D 


CLR 

CHRCNT 


131E 

7C 

00 

8A 


INC 

F'RNFLG 

SET FLAG 

1321 

DE 

4A 



LDX 

NEWPOS 

SET POINTER 

1323 

9C 

93 


APPE35 

CPX 

TRGLIN 

AT TARGET? 

1325 

26 

03 



BNE 

APPEN4 


1327 

7F 

00 

8A 


CLR 

PRNFLG 

CLEAR FLAG 

132A 

08 



APPEN4 

INX 


BUMP 3 TIMES 

132B 

08 




INX 



132C 

08 




INX 



132D 

96 

7A 



LDA A 

APPCOL 

GET COL. NUMBER 

132F 

26 

06 



BNE 

APPEN5 


1331 

09 




DEX 



1332 

BD 

07 

E6 


JSR 

FNDCRT 

GET TO C.R. 

1335 

20 

37 



BRA 

APPEN7 


1337 

16 



APPEN5 

TAB 



1338 

5A 



APPE53 

DEC B 


DEC COUNT 

1339 

27 

1C 



BEG 

APPE65 


133B 

A6 

00 



LDA A 

0 F X 

CHECK CHARACTER 

133D 

81 

OD 



CMP A 

♦CRGRET 

• 

133F 

27 

03 



BEG 

APPEN6 


1341 

08 




INX 


BUMP POINTER 

1342 

20 

F4 



BRA 

APPE53 


1344 

DF 

58 


APPEN6 

STX 

SPCPT1 

SET POSITION 

1346 

D7 

8E 



STA B 

CHRCNT+1 


1348 

37 




PSH B 



1349 

BD 

OC 

08 


JSR 

MAKSPC 

GO MAKE MORE ROOM 

134C 

33 




PUL B 



134D 

86 

20 



LDA A 

♦ ' 

SET UP SPACE 

134F 

A7 

00 


APPE63 

STA A 

0 r X 

PUT IT 

1351 

08 




INX 


BUMP POINTER 

1352 

5A 




DEC B 


DEC THE COUNT 

1353 

26 

FA 



BNE 

APPE63 


1355 

20 

17 



BRA 

APPEN7 


1357 

DF 

58 


APPE65 

STX 

SPCPT1 

SET POSITION 

1359 

DF 

40 



STX 

TEMP 


135B 

A6 

00 


APPE66 

LDA A 

0»X 

GET CHAR, 

135D 

81 

OD 



CMP A 

♦CRGRET 

IS IT C.R.? 
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LOCN 

B1 

B2 

B3 






135F 

27 

04 



BEG 


APPE67 


1361 

08 




INX 




1362 

5C 




INC 

B 



1363 

20 

F6 



BRA 


APPE66 


1365 

D7 

8E 


APPE67 

STA 

B 

CHRCNT+1 


1367 

DF 

5A 



STX 


SPCPT2 


136? 

BD 

OD 

43 


JSR 


DELCHR 

DELETE REST OF LINE 

136C 

DE 

40 



LDX 


TEMP 

GET POINTER 

136E 

DF 

58 


APPEN7 

STX 


SPCPT1 


1370 

96 

7B 



LDA 

A 

STRCNT 

GET COUNT 

1372 

27 

12 



BEG 


APPE78 


1374 

97 

8E 


APPE72 

STA 

A 

CHRCNT+1 


1376 

BD 

OC 

08 


JSR 


MAKSPC 

GO MAKE ROOM 

1379 

DE 

50 



LDX 


STRNGE 

POINT TO STRING 

137B 

DF 

58 



STX 


SPCPT1 


137D 

DE 

4E 



LDX 


STRNGB 


137F 

DF 

40 



STX 


TEMP 

SET END 

1381 

BD 

OC 

64 


JSR 


MAKS55 

PUT IN STRING 

1384 

DE 

5A 



LDX 


SPCPT2 

GET POINTER 

1386 

5F 



APPE78 

CLR 

B 



1387 

BD 

07 

F6 


JSR 


BAK0N2 

• 

138A 

BD 

08 

3F 


JSR 


VERLIN 


138D 

96 

8A 



LDA 

A 

PRNFLG 

DONE? 

138F 

27 

07 



BEG 


APPEN8 


1391 

BD 

06 

C3 


JSR 


NXTLIN 

FIND NEXT LINE 

1394 

DF 

4A 



STX 


NEWPOS 


1396 

20 

8B 



BRA 


APPE35 

REPEAT 

1398 

DF 

48 


APPEN8 

STX 


CURPOS 


13? A 

7E 

08 

A2 

APPEN9 

JMP 


PRINT6 




( 


* SAVE CURRENT FILE ON TAPE 


139D 

BD 

0? 

A4 

SAVE 

JSR 

TFORCR 


13 AO 

DE 

97 



LDX 

FILBEG 

SET POINTER 

13A2 

DF 

58 



STX 

SPCPT1 


13A4 

DE 

99 



LDX 

FILEND 


13A6 

DF 

5A 



STX 

SPCPT2 

SET END 

13A8 

8D 

2? 



BSR 

RECORD 

GO RECORD IT 

13AA 

7E 

09 

30 

SAVE4 

JMP 

NUMSE6 







* WRITE PART 

OF FILE TO 

TAPE 

13AD 

BD 

08 

A8 

WRITE JSR 

TSTEMP 


13B0 

DE 

44 


LDX 

BUFPNT 

SET POINTER 

13B2 

BD 

04 

E9 

JSR 

FINDT 

FIND TARGET 

13B5 

96 

8C 


LDA A 

DRCTN 

CHECK DIRECTION 

13B7 

26 

OC 


BNE 

WRITE2 


13B? 

BD 

07 

E6 

JSR 

FNDCRT 


13BC 

08 



INX 



13BD 

DF 

5A 


STX 

SPCPT2 

SET POINTER- 

13BF 

DE 

4A 


LDX 

NEWPOS 


13C1 

DF 

58 


STX 

SPCP11 

SET BEGINNING 

13C3 

20 

OA 


BRA 

WRITE4 
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LOCN 

B1 

B2 

B3 




13C5 

DF 

58 


WRITE2 

STX 

SPCPT1 

13C7 

DE 

4A 



LDX 

NEWPOS 

13C9 

BD 

07 

>0 

Li 


JSR 

FNDCRT 

13CC 

08 




I NX 


13CD 

DF 

5A 



STX 

SPCPT2 

13CF 

8D 

02 


WRITE4 

BSR 

RECORD 

13D1 

20 

D7 


WRITES 

BRA 

SAVE4 


SET END 
GO RECORD IT 


* RECORD RECORD 


13D3 

96 

B9 

RECORD 

LDA A 

RONCH 


13D5 

BD 

02 OF 


JSR 

TOUCH 


13D8 

8D 

2B 


BSR 

TDELAY 

GO DELAY 

13DA 

DE 

58 


LDX 

SPCPT1 

SET POINTER 

13DC 

9C 

5A 

REC0R2 

CPX 

SPCPT2 

DONE? 

13DE 

27 

15 


BEQ 

REC0R4 


13E0 

08 



INX 


GET PAST NUMBERS 

13E1 

08 



INX 



13E2 

08 



INX 



13E3 

A6 

00 

REC025 

LDA A 

0 r X 

GET A CHARACTER 

13E5 

81 

OD 


CMP A 

♦CRGRET 


13E7 

27 

06 


BEO 

REC0R3 


13E9 

BD 

02 OF 


JSR 

TOUCH 

OUTPUT IT 

13EC 

08 



INX 


BUMP THE POINTER 

13ED 

20 

FA 


BRA 

REC025 


13EF 

BD 

02 OF 

REC0R3 

JSR 

TOUCH 

OUTPUT IT 

13F2 

08 



INX 



13F3 

20 

E7 


BRA 

REC0R2 

| 

13F5 

86 

1A 

REC0R4 

LDA A 

#*1A 

SET CONTROL Z 

13F7 

BD 

02 OF 


JSR 

TOUCH 

OUTPUT IT 

13FA 

CE 

FF FF 

REC0R5 

LDX 

♦*FFFF 

SET COUNT 

13FD 

09 


REC0R6 

DEX 



13FE 

26 

FD 


BNE 

REC0R6 


1400 

96 

BA 

REC0R7 

LDA A 

ROFCH 


1402 

BD 

02 OF 


JSR 

TOUCH 

. ’ » t 




* DELAY 

FOR TAPE 


1405 

96 

B6 

TDELAY 

LDA A 

DELAY 

GET FACTOR 

1407 

27 

09 

DELAY1 

BEQ 

DELAY4 


1409 

CE 

FF FF 


LDX 

#$FFFF 

SET COUNT 

140C 

09 


DELAY2 

DEX 


DEC COUNT 

140D 

26 

FD 


BNE 

DELAY2 


140F 

4A 



DEC A 


DONE? 

1410 

20 

F5 


BRA 

DELAY1 


1412 

39 


DELAY4 

RTS 


RETURN 




* PUT A 

GAP ON 

TAPE (40 

NULLS) 

1413 

BD 

09 A4 

GAP 

JSR 

TFORCR 



(4 $ 
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LOCN 

B1 

B2 

B3 





1416 

96 

B9 


LDA 

A 

RONCH 

TURN ON TAPE 

1418 

BD 

02 

OF 

JSR 


TOUCH 


141B 

8D 

E8 


BSR 


TDELAY 

GO DELAY 

141D 

C6 

28 


LDA 

B 

#40 

SETUP COUNT 

141F 

4F 


GAP2 

CLR 

A 


SET NULL 

1420 

BD 

02 

OF 

JSR 


TOUCH 

OUTPUT IT 

1423 

5A 



DEC 

B 


DEC COUNT 

1424 

26 

F9 


BNE 


GAP2 


1426 

8D 

D8 


BSR 


REC0R7 


1428 

20 

A7 


BRA 


WRITE5 







* READ 

TAPE ROUTINE 


142A 

BD 

09 

A4 

READ 

JSR 

TFORCR 


142D 

96 

B7 


24 aS 

LDA A 

TONCH 

» * \ 

142F 

BD 

02 

OF 

He 

JSR 

TOUCH 

6 

1432 

8D 

D1 


. ( 

BSR 

TDELAY 

GO DELAY 1 

1434 

BD 

07 

A3 


JSR 

CLRNUM 


1437 

DE 

99 



LDX 

FILEND 

GET END 

1439 

DF 

40 



STX 

TEMP 


143B 

9C 

97 



CPX 

FILBEG 

EMPTY? 

143D 

27 

08 



BEQ 

READ1 


143F 

BD 

07 

FO 


JSR 

BAKONE 

MOVE BACK ONE 

1442 

BD 

06 

98 


JSR 

GETNUM 

GET NUMBER 

1445 

DE 

99 



LDX 

FILEND 

FOINT TO END 

1447 

8D 

35 


READ1 

BSR 

RDCHKE 


1449 

8D 

33 



BSR 

RDCHKE 


144B 

8D 

31 



BSR 

RDCHKE 


144D 

BD 

02 

OC 

READ2 

JSR 

TINCH 

GET CHAR FROM TAPE 

1450 

81 

OD 



CMP A 

♦CRGRET 


1452 

27 

OC 



BEQ 

READ3 


1454 

81 

1A 



CMP A 

#$1A 

IS IS CNTRL 2? 

1456 

27 

OC 



BEQ 

READ4 


1458 

81 

IF 



CMP A 

♦♦IF 


145A 

23 

FI 



BLS 

READ2 


145C 

8D 

21 



BSR 

RDCHK2 


145E 

20 

ED 



BRA 

READ2 


1460 

8D 

ID 


READ3 

BSR 

RDCHK2 


1462 

20 

E3 



BRA 

READ1 

REPEAT 

1464 

5F 



READ4 

CLR B 



1465 

BD 

07 

F6 


JSR 

BAK0N2 

FIND LAST C*R* 

1468 

DF 

99 


READS 

STX 

FILEND 

SET NEW END 

146A 

7C 

00 

83 


INC 

CHKFLG 


146D 

96 

B8 



LDA A 

TOFCH 


146F 

BD 

02 

OF 


JSR 

TOUCH 


1472 

9C 

40 



CPX 

TEMP 


1474 

27 

05 



BEQ 

READ6 


1476 

DE 

40 



LDX 

TEMP 


1478 

BD 

06 

BO 


JSR 

RENUM2 

GO NUMBER NEW LINES 

147B 

7E 

09 

90 

READ6 

JMP 

B0TT01 



BD feot: r~ 


% READ AND CHECK END 
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12 


LOCN B1 B2 B3 
147E 4F 
147F BC 02 
1482 27 04 
1484 A7 00 

1486 08 

1487 39 

1488 BD 02 OC 
148B 81 1A 
148D 26 F9 
148F 20 D3 

1491 OD 


1492 


RDCHKE 

RDCHK2 


RDCHK3 


BEGPNT 


A048 02 00 


CLR 

A 


CLEAR BYTE 

CPX 


MEMEND 

END OF MEMORY? 

BEQ 


RDCHK3 


STA 

A 

0»X 

PUT CHAR 

INX 



BUMP THE POINTER 

RTS 



RETURN 

JSR 


TINCH 

GET CHAR FROM TA 

CMP 

A 

*«1A 

IS IT TERM? 

BNE 


RDCHK3 


BRA 


READ4 


FCB 


♦ OD 

SET END !! 

EGU 


* 


ORG 


♦A048 


FDB 


START 



END 


SYMBOL 

table: 

ALLFLG 

0077 

APPEN2 

1306 

APPEN7 

136E 

APPE63 

134F 

APPE78 

1386 

BAK0N5 

0808 

BCDC04 

0769 

BCDC15 

0761 

BFRSTR 

0DB4 

B0TT01 

0990 

BUFSAV 

0046 

CFIND4 

0A1B 

CFIN13 

09FC 

CHANG1 

0DD8 

CHANG6 

0E71 

CHAN35 

ODFE 

CHAN55 

0E6A 

CHAN67 

OEAA 

CHAN86 

OEFC 

CHGFLG 

0085 

CHRTBL 

1241 

CMPZN1 

0644 

COPY 

0FF3 

C0PY15 

103C 

C0PY4 

1094 

CRLFST 

0458 


APPCOL 007A 
APPEN3 1310 
APPEN8 1398 
APPE65 1357 
BACKSP 0008 
BAK0N6 080B 
BCDC05 0778 
BCDC65 0787 
BMPFLG 007D 
B0TT02 0998 
CFIND 09CF 
CFIND5 0A25 
CFIN14 0A02 
CHANG2 ODES 
CHANG8 0EC8 
CHAN37 0E02 
CHAN61 0E7C 
CHAN80 0ED3 
CHA510 0E51 
CHGONF 0079 
CLASS 073B 
CMPZN2 064F 
COPYO 101C 
C0PY18 1042 
C0PY45 10A6 
CURPOS 0048 


APPEND 12DD 
APPEN4 132A 
APPEN9 139A 
APPE66 135B 
BAKONE 07F0 
BCDCON 0755 
BCDC06 077C 
BCDC67 0789 
BMPNUM 066A 
BUFFER OOBB 
CFIND1 09E4 
CFIND6 0A28 
CFIN15 0A05 
CHANG3 0DF4 
CHANG9 0F04 
CHAN50 0E41 
CHAN62 0E8B 
CHAN81 OEDD 
CHA675 OEBD 
CHGPNT 0064 
CLASS2 074A 
CMPZ14 064E 
C0PY02 1010 
C0PY2 104E 
C0PY5 10A9 
DECCNT 0089 


APF’ENO 12EA 
APPEN5 1337 
APPE35 1323 
APPE67 1365 
BAK0N2 07F6 
BCDC01 0757 
BCDC07 078B 
BEGPNT 1492 
BMPNU4 0674 
BUFLIM 04BB 
CFIND2 0A08 
CFIND9 0A2B 
CFNTST 0A31 
CHANG4 0E28 
CHAN12 ODDB 
CHAN51 0E44 
CHAN65 0E91 
CHAN82 0EE6 
CHFRQU 123A 
CHKFLG 0083 
CLASS4 0754 
CMPZ24 0659 
C0PY05 1014 
C0PY25 1053 
CPYDRC 008B 
DECNUM 082A 


APPEN1 12ED 
APPEN6 1344 
APPE53 1338 
APPE72 1374 
BAK0N4 0807 
BCDC02 0764 
BCDC08 079A 
BELL 0007 
BOTTOM 098E 
BUFPNT 0044 
CFIND3 0A10 
CFIN12 09E8 
CHANGE ODCB 
CHANG5 0E31 
CHAN15 ODDE 
CHAN52 0E5F 
CHAN66 0E96 
CHAN84 OEFO 
CHGEND 0066 
CHRCNT 008D 
CLRNUM 07A3 
CNRSTR 0982 
C0PY1 101F 
C0PY3 1067 
CRGRET OOOD 
DELAY 00B6 




58 


% 


DELAY1 1407 
DELCH3 0DA2 
DELC31 0D64 
DELET1 0CD6 
DELET6 0D2E 
DELE25 0CE7 
EDIT 038A 
EDIT5 03CC 
EDIT65 040D 
EOL 00B5 
EXIT 0989 
EXPLIN 1285 
EXPLI5 12CF 
FILEND 0099 
FINDL1 04E4 
FINDT2 04FB 
FIND3 0541 
FIND63 0584 
FIND71 05B2 
FIND77 05F4 
FNDCRT 07E6 
FNDNU2 07B8 
GAP 1413 
HEADE3 113C 
HEAD45 1152 
INCAMT 007C 
INCHR4 04BA 
INSERT 0AC8 
INSER5 0B1D 
INSE45 0B13 
INSE61 0B53 
INS710 0B8F 
LASTNO 005C 
MAKSP1 0C16 
MAKSP6 0C7A 
MAKS24 0C49 
MOVE 0FD4 
NLDSTR 0DA3 
NTRCHS 0D7F 
NUMSE4 092D 
NXTLI2 06CA 
NXT0C3 0AA4 
OCRCNT OOAE 
ONOFF 0937 
0UTBC4 08ED 
0UTB65 08FE 
OUTHR 0917 
OUTSPC 08CD 
OVREND 0073 
0VRLA4 0F7C 
OVRLST OFCA 
0VRL41 0F7E 
PDATA1 0485 
PRINT1 0885 
PROMPT 0023 
RDCHK2 147F 
READ3 1460 
REC0R2 13DC 
REC0R7 1400 


DELAY2 140C 
DELCH4 0D7C 
DELC32 0D73 
DELET2 0CE5 
DELET7 01*33 
DELE35 OCF1 
EDIT1 0397 
EDIT55 03D1 
EDIT7 0416 
EQUALS 0AA5 
EXPAND 125C 
EXPLI1 12A0 
EXPLI6 12D7 
FILL 00B3 
FINDL2 04E5 
FIND1 050A 
FIND4 054D 
FIND65 058C 
FIND72 05B8 
FIND78 05F5 
FNDCR2 07E9 
FNDNU4 07BA 
GAP2 141F 
HEADE4 1144 
HEAD55 115C 
INCH 0206 
INCH35 04B7 
INSER1 0AD7 
INSER6 0B48 
INSE51 0B2C 
INSE62 0B6B 
INS711 0BB5 
LINFLG 0075 
MAKSP2 0C21 
MAKS18 0C20 
MAKS55 0C64 
MOVFLG 0080 
NOCURL 0074 
NUMBER 0090 
NUMSE6 0930 
NXTOCR 0A83 
OCCURR 0A48 
OCRFLG 0078 
ONOFTB 0946 
0UTBC6 08F9 
0UTB75 0906 
OUTLIN 08AF 
OVER 04C1 
OVRLAO 0F3C 
0VRLA5 0F9D 
0VRL11 0F47 
0VRL43 0F96 
PEDIT 0383 
PRINT5 089D 
PSTRNG 0483 
RDCHK3 1488 
READ4 1464 
REC0R3 13EF 
REC025 13E3 


DELAY4 1412 
DELCH5 0D7E 
DELC34 0D77 
DELET3 0CE9 
DELE02 0C94 
DELE45 0D13 
EDIT2 03AB 
EDIT56 03F1 
EDIT8 0429 
EQUFLG 007E 
EXPAN1 126A 
EXPLI2 12A3 
EXPLI7 12DC 
FIND 04FD 
FINDT 04E9 
FIND14 0521 
FINDS 055A 
FIND66 0594 
FIND73 05C6 
FIN702 05AB 
FNDFLG 0070 
FNDNU5 07DA 
GETNUM 0698 
HEADE5 1158 
HEAD57 1172 
INCHAR 0499 
INCNUM 067C 
INSER2 OADE 
INSER7 0B7B 
INSE52 0B3F 
INSE71 0B80 
INS712 0BC2 
LINO 00B4 
MAKSP3 0C4E 
MAKS21 0C23 
MAK222 0C3E 
MSLFLG 006C 
NOFSTR 0464 
NUMFLG 006A 
NWFSTR 034B 
NXTOCO 0A87 
0CCUR3 0A67 
OCRTMP 0068 
OUTBCD 08D4 
0UTBC7 0900 
0UTB78 0908 
0UTLI2 08BF 
OVERLA 0F21 
0VRLA1 0F45 
0VRLA6 OFAE 
0VRL12 0F53 
0VRL45 0F98 
PREROR 0444 
PRINT6 08A2 
PSTZFL 006D 
READ 142A 
READ5 1468 
REC0R4 13F5 
RENSTR 0BF2 


DELCHR 0D43 
DELCOD 0018 
DELETE 0C8A 
DELET4 0CF4 
DELE04 0C9D 
DEL.IM 0095 
EDIT3 03BC 
EDIT58 03FB 
EDIT85 0435 
ERROR 0441 
EXPAN2 1273 
EXPLI3 12B1 
EXPL35 12B5 
FINDL 04D2 
FINDTO 04EE 
FIND16 0526 
FIND6 0565 
FIND67 05A8 
FIND74 05D0 
FIN711 05B5 
FNDNUM 07AB 
FNDN45 07D8 
HEADER 11IB 
HEADE7 117B 
HEAD58 1177 
INCHR1 049C 
INITLZ 0355 
INSER3 0AE6 
INSE42 0AF8 
INSE55 0B45 
INSE72 0BC8 
INS713 0BC5 
LSTFLG 0088 
MAKSP4 0C5A 
MAKS22 0C32 
MEMEND 0212 
NEWPOS 004A 
NORMST 0C77 
NUMSET 091D 
NXTFLG 0076 
NXT0C1 0A96 
0CCUR4 0A76 
OFF 0958 
0UTBC2 08DD 
0UTBC8 090B 
OUTCH 0209 
0UTLI4 08CB 
OVLPST 10B4 
0VRLA2 0F5C 
0VRLA7 0FC2 
0VRL16 0F56 
0VRL55 0FA6 
PRINT 0877 
PRIN12 088C 
PUTNUM 068B 
READ1 1447 
READ6 147B 
REC0R5 13FA 
RENUMB 06A5 


DELCH2 0D5B 
DELC21 0D61 
DELETO OCBB 
DELET5 0D1B 
DELE15 OCCA 
DRCTN 008C 
EDIT4 03C1 
EDIT6 0400 
EDIT88 043F 
ERRSTR 044C 
EXPAN5 1282 
EXPLI4 12BB 
FILBEG 0097 
FINDLO 04E2 
FINDT1 04F8 
FIND2 0532 
FIND62 057A 
FIND7 05A9 
FIND75 05DF 
FIXZON 065A 
FNDNU1 07B1 
FNONFL 0087 
HEADE2 112A 
HEAD42 1146 
HEDCNT 0096 
INCHR3 04AB 
INLMFL 007F 
INSER4 OAEA 
INSE43 OBOA 
INSE60 0B4F 
INSE75 0BD6 
INZFLG 008F 
MAKSPC 0C08 
MAKSP5 0C62 
MAKS23 0C45 
MIKBUG EODO 
NEXT 09CC 
NOTFND 045F 
NUMSE2 0928 
NXTLIN 06C3 
NXT0C2 0A9F 
OCCURS 0A79 
ON 0956 
0UTBC3 08E5 
0UTB35 08EB 
OUTHL 0913 
0UTL15 08BC 
OVRBEG 0072 
0VRLA3 0F6C 
0VRLA8 0FC7 
0VRL35 0F71 
PCRLF 044E 
PRINTO 087E 
PRNFLG 008A 
RDCHKE 147E 
READ2 144D 
RECORD 13D3 
REC0R6 13FD 
RENUM1 06AA 






RENUM2 

OABO 

RENUM4 

OACO 

REPFLG 

0081 

REPLAC 

0C87 

RESTRT 

0203 

ROFCH 

OOBA 

RONCH 

00B9 

RSTSPT 

OF 14 

SAVE 

139D 

SAVE4 

13AA 

SAVOCR 

0A7A 

SEOL 

11E5 

SET 

11CC 

SETC 

11 ED 

SETC2 

1204 

SETC4 

1213 

SETC5 

1228 

SETC6 

1232 

SETC8 

1237 

SETDEL 

05FA 

SETDE2 

0600 

SETDE4 

060E 

SETDE5 

0617 

SFILL 

11E0 

SKIPSA 

0491 

SKIPSP 

0492 

SKIPS2 

0498 

SKPCLS 

0738 

SLINO 

11EA 

SNGLIN 

0084 

SPCPT1 

0058 

SPCPT2 

005A 

SRCHPT 

004C 

STAB 

11DB 

STACK 

01FF 

START 

0200 

STRCNT 

007B 

STRCN1 

0071 

STRCN2 

0086 

STRGB1 

0052 

STRGE1 

0054 

STRING 

OACD 

STRIN1 

06DA 

STRIN2 

06E2 

STRIN3 

06E8 

STRIN4 

0709 

STRIN5 

070D 

STRIN6 

071C 

STRIN7 

0729 

STRIN8 

072B 

STRIN9 

0735 

STRNGB 

004E 

STRNGE 

0050 

STRPNT 

0056 

SVSTPT 

0F07 

SYNERR 

0471 

SYNSTR 

047A 

SZONE 

117E 

SZ0NE2 

1192 

SZ0NE3 

1199 

SZ0NE4 

11 AO 

SZ0NE5 

11A4 

SZ0NE6 

11B8 

SZ0NE7 

11BD 

SZ0NE8 

11C9 

SZON75 

11C4 

TAB 

10D0 

TABBUF 

009D 

TABCH 

00B2 

TABEND 

00B1 

TABLE 

0214 

TABPNT 

009B 

TAB2 

10D5 

TAB4 

10EF 

TABS 

10FA 

TAB6 

1110 

TAB8 

1118 

TDELAY 

1405 

TEMP 

0040 

TFORCR 

09A4 

TF0RC2 

09B1 

TF0RC3 

09B2 ■ 

TINCH 

020C 

TMPCHR 

0082 

TOFCH 

00B8 

TOGGLE 

095B 

TONCH 

OOB 7 

TOP 

099D 

TOUCH 

020F 

TRGLIN 

0093 

TSTEMP 

08A8 

TSTEND 

0AA3 

TSTEN2 

0669 

TSTMSL 

09B5 

TSTMS2 

09BB 

TSTMS4 

09CA 

TSTMS5 

09CB 

TSTNUM 

0838 

TSTNU2 

083E 

TSTOVR 

0821 

TSTOV2 

0829 

UPONE 

080F 

UP0NE1 

0813 

UP0NE2 

0819 

VERFLG 

006B 

VERLIN 

083F 

VERLI1 

0849 

VERLI2 

0872 

VERL12 

084C 

VERL15 

085C 

VERSET 

09A3 

VERSE2 

09AE 

VERSE4 

0973 

VERSE6 

0976 

WRITE 

13AD 

WRITE2 

13C5 

WRITE4 

13CF 

WRITES 

13D1 

XCNTRL 

0978 

XSAVE 

0042 

ZOKSTR 

Z0NE3 

0A3B 

063B 

ZONBUF 

0062 

ZONE 

061A 

Z0NE1 

005E 

Z0NE2 

0060 


OBJECT CODE? 


SI 

OD 

00B1 

00 

00 

20 

23 

00 

06 

00 

00 

00 

00 

F8 







SI 

13 

0200 

7E 

03 

55 

7E 

03 

83 

7E 

El 
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